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Vorwort 

von Tim Hartnell 


Explosive Spiele. Klingt das nicht aufregend? In diesem 
Buch linden Sie viele großartige Spiele, die Sie stunden¬ 
lang an Ihren ZX81 fesseln werden. 

Dieses Buch enthält Programme für jedes Spiel, das Sie 
sich nur wünschen könnea einschließlich GALAKTI¬ 
SCHER ANGRIFF, SCHMETTERBALL DAME, RAUMSCHIFF 
ENTERPRISE, TODESLABYRINTR VIERERREIHE und das 8K- 
Abenteuerspiel SCHAT7SUCHE. Außerdem finden Sie eine 
Menge neuer Spiele und Abwandlungen alter Lieblings¬ 
spiele. Viele der Programme laufen schon mit IK (unter 
anderem ein vereinfachtes Rauminvasions-Programm). 
Bei manchen Spielen entscheidet das Glück — der ge¬ 
fürchtete Sinclair Zulallszahlengenerator — bei anderen 
die Geschicklichkeit, sowohl Ihre als auch die des Com¬ 
puters. Wir haben jedoch darauf geachtet daß wirklich 
jedes Programm mindestens eine Progiammiertechnik 
enthält, die Sie für Ihre eigenen Programme anpassen 
können. 

Wenn Sie wollea können Sie die Programme einfach 
wie angegeben eintippen und spielen, Aber wahr¬ 
scheinlich wird es Ihnen viel mehr Spaß machea mit ih¬ 
nen zu arbeiten, sie nach Wunsch zu verändern, einige 
Teile zu löschen andere zu verbessern usw., bis das Spiel 
Ihre persönliche Note trägt. Viele der IK-Spiele können Sie 
verbessern werm Sie mehr Speicher haben. Zumindest 
können Sie die Eingabe-Aufforderungen für den Spieler 
»benutzerfreundlicher« gestalten und die Regeln genauer 
erklären. 

Bestimmt werden Sie viel aus den Programmen lernen 
wenn Sie sie genau durchsehen. Jedem Programm wur¬ 
de eine kurze Einführung vorangestellt, die die Spiel- 



regeln erklären soll — falls sie nicht sofort nach dem Star¬ 
ten des Programms offensichtlich sind. Manchen Pro¬ 
grammen wurden auch ein paar klärende Worte zum 
verwendeten Algorithmus hinzugefügt 
Die meisten Programme sind von Colin Hughes und mir, 
weitere von G. D, Charlton aus Romford. 

Ich danke diesen Programmierern, besonders Colin, für 
Ihre Beiträge. 

TIM HARTNELL 


WICHHGER HINWEIS! 

Die Programmlistings in diesem Buch wurden wegen 
der besseren Lesbarkeit mit einem Normalpapier- 
drucker ausgedruckt. Nur die Grafikzeichen wurden in 
die Listings einmontiert. 

Das Zeichen # in den Programmerx wie auch im Text 
beschrieben steht für 1 Zwischenraum. 

Unterstrichene Angaben in den Programmen bedeu¬ 
ten inverse Buchstaben (weiß auf schwarzem Hinter¬ 
grund); Sie können jeden PRINT-Gegenstand in diesem 
Buch invertieren 

Eine Null wird in diesem Buch so dargestellt; 0 
und das Multiplikationszeichen sieht so aus: * 

Die durch '^Ir gekennzeichneten Zeilennummern sind 
Undefinierte Variablen dos Spiel wird durch diese 
Zeilennummern mit Fehlermeldung 2 unterbrochen. 



-Todeslabyrinth- 

wie Sie cail dem Computerausdiuck sehen, eizeugt der 
ZX81 ein Labyrinth. Sie (das $-Zeichen) starten auf der 
linken Seite und sollten möglichst schnell nach rechts 
gelangen indem Sie -Q« (hoch), »Z« (tief) und »L« (rechts) 
drücken. Die Punktzahl nimmt dann ständig ab. 
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Wenn Sie gegen einen schwarzen Strich stoßen (statt 
durch die Leerräume zu gehen), werden Ihre Punkte er¬ 
heblich weniger. Wenn Sie an eine Außen-Umrandung 
stoßen (ausgenommen die rechte), endet das Spiel auto¬ 
matisch. 

Das Programm gibt den jeweiligen Punkt-Rekord an. Mit 
einiger Übung sollten Sie über 13504 Punkte erreichen. 
Wenn Sie Zusehen wollen wie der ZX8i zwischen den ein¬ 
zelnen Runden das Labyrinth outbout, löschen Sie die 
Zeilen 10 FAST und 9490 SLOW. 


3 LET ij=0 
10 ERST 

15 FOR B=2 TÜ 28 STEP 2 
20 FOR TO 19 
30 PRIHT RT 
40 NEXT R 

45 PRIHT RT RND*14-h3. ”#" 

50 HEXT e 

60 FOR fi«0 TO 30 

70 PRIHT RT 0,. Ri”SI%RT 

80 HEXT fl 
90 FOR B=1 TO 18 
100 PRIHT RT B..0;"M’M=IT ß.,30.:"ll 

110 HEXT B 
120 GOSUB 9000 
125 GOTO 1G7 
150 FRIHT RT fl..B.’'$" 

155 LET Z=2-673 " 

160 PRINT RT 20.0; "PUNKTE^#", 

165 RETURN 

167 LET Z4i=IHKEY$ 

170 IF THEH LET 

1S0 LET Z^Z-50 

200 LET V=fl 
210 LET X=B 

215 REN ZUR SPIELBESCHLEUHIGUNG 
NRECHSTE ZEILE LÜESCHEN 
217 LET R»RHD#.RHD*RND 
220 LET R=R-i-t;Z$-"Z" 

230 LET ß=B-t-';Z$="L’'? 

232 PRINT RT V.X;" " 

233 IF PEEK (PEEK 16396+256Jt;PEE 
K 16397+33*fl-HB-t-l )=128 THEN GOSUB 

150 

235 PRIHT RT 

255 IF R>i3 ÜR fl<2 OR B<1 THEN 
LET 2«IHT CZ.^3.V 
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260 IF R>18 OR fi<2 OR Ba DR B> 
25« THEH GOTO 510 
490 LEI fl*=Z$' 

500 GOTO 167 

510 RRINT RT 20.3;"SPIELENDE P 
UNKTE 

520 IF Z>U THEH LET U~2 
530 FOR G=1 TO 6 
540 PRINT RT 21.. 3; "BISkHERIGER R 
EKORD ^ #";U 

545 PRINT RT R.B;’'$.%RT R.B;"$" 
jRT R.B; "r' 

550 PRINT RT 21.. 14. "REKORD” 

560 NEXT G 
570 CLS 
580 GOTO 10 
9000 LET R=10 
9010 LET B---1 
9020 LET 2=20000 
9030 LET V=R 
9040 LET 
9050 LET fl$="Z'' 

9490 SLON 
9500 RETURN 


-Sternenreigen- 

Sie dirigieren eine beschwingte Stemenreihe, die Sie mit 
»M« und »Z« zwischen unregelmäßig erscheinenden Mar¬ 
kierungen durchlühren sollen. Je länger Sie das schaffen, 
desto höher ist Ihre Punktzahl, die bei Spielende erscheint. 
Sie sollten über 275 Punkte eneichen. Dieses Programm 
läuft auf dem IK ZX81, 

10 LET X=PI+PI 
15 LET U=X/X 
20 LET Y=X+PI 
30 LET Z='T/Y 
40 PRINT RT Y.N.i”5t:” 

50 SCRÜLL 

60 LET X=X-K INKEY*=''f1'' RHD X<3 
0>-c: INKEY$="Z" RHD X>PI > 

62 LET U=U-t-Z 

65 IF RND>.7 THEH GOTO 40 
70 PRINT RT RNC4:15+5.RND^:30J "iS 

80 PRINT RT RND:t:i5-K5.RNDS:30;’'S 

90 PRINT RT Y.Xi 
110 IF PEEK <PEEK 16398+256*PEE 
K 16399><>S THEN GOTO 40 
120 PRINT U 
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Raumschiff Enterpris 


Bei diesem fesselnden und etwas suchtgefährdenden 
Spiel patrouillieren Sie in einem Abschnitt der Milch¬ 
straße als Kommandant eines Raumschiffs, dessen Be¬ 
satzung aus so bekannten Astronauten, wie Mr, Spock, 
Scottie, Lt, Uhuia Chekov und Sulu besteht, (Bitte beach¬ 
ten Sie, daß diese Namen und die Bezeichung RAUM¬ 
SCHIFF ENTERPRISE Warenzeichen der Pcramount Pictu- 
res Corporation sind.) Es gibt cirka 20 feindliche Objekte 
in diesem Abschnitt, Sie selbst sind das S-Zeichen auf dem 
Bildschirm, 


1234.567850 


ENERGIEBRNK.2815 


POSITION IST 5,5 
IH PROCYON SEKTOR 


1234.567858 

SPOCK: WIE IHR MENSCHEN SRGT , 
WIE LRUTET IHR BEFEHL 
SIR7 

1 - RRDRR 

2 - POSITION 

3 - FEUERN 



Sie können jeweils Ihre Position ändern, das Radar ein¬ 
schalten oder feuern. Eine Positionsänderung bringt Sie 
wahlweise ein Feld weiter nördlich/südlich oder öst¬ 
lich/westlich, Feuern können Sie nur ln das nächste Feld, 
Ihr Radargerät arbeitet auf zwei Arten: 

NAHBEREICH erfaßt die 8 Felder unmittelbar um Sie her¬ 
um, und 

FERNBEREICH erfaßt in der angegebenen Richtung ein 
einzelnes Feld, das zwei Felder von Ihnen entfernt ist. 
Wenn Sie auf einem feindlichen Objekt landen, ist das 
Spiel aus, Treffen Sie ein feindliches Objekt, erscheint an 
seiner Stelle ein inverses Sternchen, und Ihr ABSCHUSS¬ 
KONTO erhöht sich. Befindet sich kein feindliches Objekt 
in diesem Feld, erscheint ein inverses X und zeigt an, daß 
Sie sich nicht mehr um dieses Quadrat zu kümmern brau- 
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Chen. Die feindlichen Objekte bewegen sich im Verlauf 
des Spiels nicht von der Stelle, Da Sie begrenzte Energie¬ 
vorräte in Ihrer Energiebank haben, sollten Sie versu¬ 
chen, möglichst viele Objekte zu vernichten, ehe Ihre 
Energie zu Ende geht 

Sorgfältiger Einsatz Ihrer Radaranlage stellt sicher, daß Sie 
a) möglichst wenige Schüsse vergeuden und b) nicht auf 
einem feindlichen Objekt landen. Beachten Sie, daß 
Fernradar mehr Energie verbraucht als Nahradar, 


3.234-567890 


ENERGIEBRNK : 54.4- 
flBSCHUSSLISTE 
TREFFER: 2 


POSITION IST S..5 
XH PROCYQN SEKTOR 


1234-56789© 

CHEKOUr UIE LRUTET IHR BEFEHL. 
SIRT 

1 - RRDRR 

2 - POSITION 

3 - FEUERN 



Ein Objekt kann das Feuer nur erwidern, wenn Sie Ihren 
Laser darauf abgefeuert haben (was Ihre Position verrät) 
und es nicht weiter als ein Feld von Ihnen entfernt ist. Der 
Schaden, den ein feindlicher Treffer an Ihrem Raumschiff 
anrichfen, wird in Energie gemessen (d.h. von Ihrer Bank 
wird Energie abgezapft). Das Spiel läuft so lange, bis Sie 
auf einem feindlichen Objekt landen oder Ihre Energie 
ausgeht 


20 GOSUB 9000 
25 GÜSUB 8000 
30 GOSUB 6950 
40 GOSUB 7000 
50 GOSUB 6950 
30 GOSUB 7500 

100 PRINT "NIE LRUTET IHR BEFEH 
L" 

120 PRINT TflB 6.; "SIR?”,. .TF=IB 12,i 

"1 •- RHDRR’'^TRB 12.: ”2 . NRVIGRTI 

ON'FiTRB i2.i "3 - FEUERN" 
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140 IHPUT D 

150 IF D<1 OR D>3 THEH GOTO 140 
155 GOSUB 6950 
166 GOSUB 1000#D 
170 FOR IJ^l TO 50 
180 PRINT RT 20.5^ "■■■ll";RT 26 
. 5 ; '■#####" 

190 NEXT W 
500 GOTO 30 

1020 PRINT TRB 4^’H RRDRR 
1030 GOSUB 7500 

1040 PRINT "NAH- <1) ODER#"."PER 
HBEREICH <2:>. SIR?" 

1060 INPUT K 
1080 LET E=E~10»:K 
1090 GOSUB 6950 
1100 IF K=2 THEN GOTO 1500 
1120 IF fl(B+l.C>=l OR R<B+1.C+1> 
= 1 OR R<B.C-HX“1 OF^ R<B-1.C)=1 0 
R ACB-l.C-n^^l OR A^B.C-i:)=i OR 
;<=1 OR A<B-1.C+1>«1 THE 
N PRINT ZS; "IN SICHT,. "SIR" 

1140 RETURN 
1500 GOSUB 7500 

1520 PRINT FIT 15. Oj "RICHTUNG ^ N- 
1. S-2.. 0-3. W-4?" 

1525 PRINT TAB 10j"r2AHL EINGEBE 
N V 

1530 INPUT N 
1540 LET 2=0 

1560 IF N=1 AND A'::B-2.C>-1 THEN 
LET 2=1 

1530 IF N=2 AND A<ß+2.C>=1 THEN 
LET 2=1 

1600 IF AND A’.:B.C+2>=1 THE'N 
LET 2=1 

1620 IF N=4 AND A<B.C-2:i=l THEN 
LET 2=1 

1630 GOSUB 7500 

1640 PRINT "FERNRRDARBERICHT" 

1660 IF Z=i THEN PRINT "POSITIV" 

1680 IF Z=0 THEN PRINT "NEGATIV' 

1700 RETURN 

2020 LET E=E-'50 

2040 LET R<B.C>=^0 

2050 LET B<B,.C:'=0 

2060 PRINT "RICHTUNG 

2980 INPUT 

2100 LET B=B-1 

2120 IF A$="S" THEN LET B=Bh-2 
2130 GOSUB 7500 

2140 PRINT "POSITION IST#";eV'." 
iC 

2160 PRINT TAB 9. "(U.-'Ü)?" 
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2180 INPUT fl$ 

2200 LET C=C-1 

2220 IP THEN LET C^=C+2 

2240 PRINT "JET2TIGE POSITION#''; 

Bi "^ " jC 

2260 IF THEN GOTO 5580 

2270 LET ^^6.0=2 

2230 LET ß<B..C>=2 

2290 GOSUB 8000 

2300 RETURN 

3000 REM FEUERN 

3010 GOSUB 7500 

3020 PRINT "SIELRICHTUNG -CN/S)?" 
3040 INPUT R* 

3060 LET G^B-i 

3030 IF R$~’'S" THEN LET G=G+-2 
33,00 PRINT TRB 13;"(W/Ü)?" 

3120 LET F=C"1 
3140 INPiJT R$ 

3160 IF R$="0" THEN LET F=F+2 
3180 LET E=E-100 
3190 IF R<G.FX>1 THEN GOTO 3300 
3195 GOSUB 7500 

3200 PRINT "DIE#";2$j "#SIND".. "GE 
TROFFEN" 

3220 LET flL»RL+l 

3260 LET B<G,F>=4 

3290 RETURN 

3300 GOSUB 7500 

3305 LET B'::G,F>=3 

3310 PRINT "VERFEHLT. SIR" 

3315 FOR G~1 TO 30 
3317 NENT G 

3320 PRINT "DIE#";2»;"ERNIEDERN" 
"DfiS FEUER" 

3330 FOR G==l TO 30 

3335 HEXT G 

3337 GOSUB 6950 

3340 IF RND>.6 THEN GOTO 3480 

3360 PRINT "WIR SIND GETROFFEN. 

SIR" 

3370 GOSUB 8000 
3360 LET E®E-100:+:RHD 
3390 RETURN 

3420 PRINT "DIE#";2$;"HABEN UNS" 
."VERFEHLT. SIR" 

3460 RETURN 
3800 GO£;UB 6950 
3805 SCROLL 

3S10 PRINT "ENERGIEBANK LEER" 
3815 SCROLL 

3820 PRINT "VERNICHTET#";HL;"#0B 
JEKT"; 

3830 IF ftLOi THEN PRINT "E" 
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3S50 SCRIÜLL 

3860 P-RINT "BEI DIESEM RUFTRRG" 
38?0 SCROLL 
3875 SCROLL 

3880 PRINT FVr 30.0j’'WF^R IHRE LEI 
9TUHG RLS KDMMRNDRNT#" . IHT < nL:f:5 
"ttPROZEIHT" 

3390 GOTO 3005 
5000 REM END 
5500 GÜSU8 6950 

5520 F-'RINT RT 15.0.; "SCHIFF RUF#" 
.Z$. "FRHFIZEUG". "GELRNDET" 

5540 F'RINT RT 15,. 0; " SCHIFF RUF #" 
/Z'Üi " FRI-IRZEUG ". " GELRNDET " 

5560 GOTO 5520 
5900 STOP 

ÖS-OO FR3R ^--13 TO 19 

6951 PRINT RT 1.0.;"############# 

#############•######" 

6953 NEHT I 
6955 PRINT RT 13.Oj 
6970 RETURN 
7000 REM STRTUS 

7020 PRINT RT 2.14j"ENERGlEBfiNK; 
#'MNT Bi ’■#" 

7030 IF E<1 THEM GOTO 3300 
7040 IF RL>e THEN PRINT RT 3.. 14.: 
"RBSCHU3SLISTE".:RT 4. 16; "TREFFER 

7060 PRINT RT 7.14."POSITION IST 
B;"."jC 

7070 PRINT RT 8. 14; "##########■## 
#####" 

7075 PRINT RT 8. 14; "IM#".: 

7080 GOSUB 8500 


"SPCfCLL W 
"SCOTT^#" 
"LT. UHUR 
"CHEKOV:# 
"SULU #"; 


8010 PRINT "##1234567890” 


7100 PRINT "#SEKTOR" 
7120 F-'RINT RT 12.0. 
7490 RETURN 
7500 LET R=INT 
7520 IF R=0 THEN PRINT 
IE IHR MENSCHEN 3RGT." 
7540 IF R=1 THEN PRINT 

7560 IF R=2 THEN PRINT 

7530 IF R;~3 THEN PRINT 

7600 IF R«4 THEN PRINT 

7900 RETURN 

7999 STOP 

8000 REM SEKTOR 
8005 PRINT RT 0.0; 
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8020 FOR a-l TO 10 

8025 PF^IINT RT Q. 13;''ü" ; FIT Q. i3.i ” 

#” 

8030 IF a<10 TUEN PRINT Q;"#"; 
3035 IF Q=10 TUEN PRINT Q; 

3040 FOF:: P==:1 TO 10 

3000 IF ß'::Q.P>=^0 THEN PRINT 

3030 IF THEN PRINT } 

3100 IF B<Q.P>3 THEN PRINT "N; 

8120 IF B(Q,.P:3===4 THEN PRINT "T:"; 

S160 NEXT P 

3200 NEKT Q 

8210 PRINT 

3220 PRINT ''##1234537830" 

3430 RETURN 
S500 REN SECTCiR 
8520 LET Q=B^:C 

8540 IF Q<10 THEN PRINT "PlNTPRfES 

3560 IF Q>9 RND Q<20 THEN PRINT 
"RIGEL". 

3580 IF Q>18 AND Q<30 THEN PRINT 
"PROCVCiN"; 

3600 IF Q>23 RND QCTQ THEN PRINT 
" VEuFS " I 

3620 IF Q>33 HMD Q<50 THEN PRINT 
"CRNÜPUS". 

8640 IF Q>43 FIND Q<G0 THEN PRINT 
"RLTFIIR"; 

3660 IF Q>53 f^ND Q<70 THEN PRINT 
"SRGITTflRIUS",; 

S6S8 IF Q>69 RND Q<80 THEN PRINT 
"PÜLLUN".: 

3700 IF Q>79 RND DO0 THEN PRINT 
"SIRIUS"; 

0720 IF Q>8£i THEN PRINT "BETELÜE 
USE". 

3740 RETIJRN 

8999 STOP 

9000 Din FK 10. 10> 

9020 Din B< 10.10> 

9060 FÜR R=i TO 20 

9080 LET n~IHT '.:RND?f:i0+l > 

9100 LE“ Y==INT (:RND:#10+1) 

9120 LE“ R(:N.,V‘>'^=1 
9140 NEXT R 
9160 LET B=5 
9180 LET C=5 
9200 LET FKB.C>^2 
9220 LET B<B.C.>=2 
9240 LET flL=0 
9260 LET E«RND 
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9280 IF E<.33 THE'N LET 2*«"BRflRR 
KER#” 

9300 IF E>.33 RND E<.S8 THEN LET 
ZSis^-WRERKTONIER#" 

9320 IF E>.66 THEN LET 2*“"P0LLU 
XIRNER#" 

9340 LET E=1000+2000»RND 
9900 RETURN 


-Autoscooter- 

Dieses Spiel macht mehr Spaß als die meisten Autotahr- 
Programme. Sie, ein inverses Y, haben eine begrenzte Zeit 
zur Verfügung, um an möglichst viele Sternchen anzu¬ 
stoßen, Sie lenken Ihr Fahrzeug mit »Z« und *C«. 


1 LET H=0 

2 LET P=5 

10 FOR 1=1 TO S 
20 PRINT TRB 15; ”1" 

30 HEXT I 
35 FOR 1=1 TO 50 

40 LET R=INT P+RND:t:5-2) 

41 IF R<0 OR fl>14 THEN LET 8=1 
NT <RND4:15 :j 

45 PRINT RT 8,R;"4:*"jRT 8,. 15; " 
l";flT S.P;"#" 

50 SCROLL 

70 IF INKEY$="2" RND P<>0 THEN 
LET P=P-1 

80 IF INKEY$="C" RND PO 14 THE 
N LET P«P+1 

101 LET P1=PEEK 16396-t-256^;PEEK 
16397 

102 IF PEEK <P1 + 1+P+3:4:17)=23 TH 
EH GOTO 400 

105 PRINT RT 3.P;''Y" 

106 PRUSE 15 “■ 

110 HEXT I 

120 PRINT H 
130 STOP 

400 PRINT RT 2.0; "4:4:4;4::4:4:PEHG4:*4: 

410 PRINT RT 
420 PAUSE 50 
430 LET H=H+1 
450 GOTO 40 
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-Galaktischer Angriff- 

Die ANGREIFER haben bei diesem Spiel eine iurchtbare 
Waffe — einen schrecklichen schwarzen Vogel, der ohne 
Vorwarnung auf Sie herabschießt. Sie bewegen sich mit 
»5« und »8« nach rechts und links und feuern mit »1«. Ihre 
Punktzahl erhöht sich mit jedem vernichteten ANGREIFER 
und die des ANGREIFERS mit jedem Mal, wenn der 
schwarze Vogel auf Sie herabschießt. Zum Schluß wer¬ 
den Ihre Punkte gegen die des ANGREIFERS aufgerech¬ 
net. Das Programm gibt den jeweiligen Punkt-Rekord an. 
Dieses Spiel braucht mehr als IK, 


50 LET Li~0 
100 GQSUe 9000 
400 FÜR TO 40 
410 IF N»1 THEN GOTO 1065 
500 LET M“0 
700 LET Z*=aNk:EY$ 

800 IF 2$=="8" THEH LET B=B+1 
900 .TF 2*="5" THEH LET 6=8“ 1 
950 IF RND>.4 THEN LET M=1 
1800 IF Z$<>"1" THEN GOTO 1055 
1010 FOR R=19 TQ 5 STEP -2 
1020 IF M=0 THEN GOTO 1056 
1022 LET M=0 
1025 LET Q.-=B 

1027 IF THEN GOTO 1056 

1030 FÜR E=3 TO 19 STEP 4 
1040 PRINT RT E.Qj "Tr'^jRT E.Qi” 
###” 

1045 IF INi<EV!S^=="5" THEH LET B=ß- 
1 

1046 IF IHKEY*='’8" THEN LET 
1 

1047 PRINT RT 20., B-1; " 

1050 MENT E 

1052 IF B=Q THEN LET C«C+1 

1053 IF B=Q THEH GOSUB 5080 

1055 IF M=1 THEN GOTO 1022 

1056 LET fl$^-R!5<2 TO 1 > 

10Pj7 IF THEN GOTO 1065 

1060 PRINT RT R.B+l."Y";flT fl.B+1 

1065 PRINT RT 2,2^RSnRT 4..0jR*;fl 
T 6.1;R$;RT 20.B;"#R#" 

1067 IF THEN GOTO 2508 

1070 NEXT fl 

1075 IF REfKB-H K >''#’■ THEN LET S= 
S+1 
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1030 PRINT RT 4.B."'4:"jRT 0.0i"SI 

2000 UIT R®(B+1 >«"#" 

2000 NENT N 

2020 PRIHT RT 0. 1S; " ICH#" J C^'43S 
3000 FORINT RT 10,. 10; "RUNDE EU EH 
DE" 

3000 LET 3=--IHT (S-C-'E) 

301.0 IF S>U Tf^EN LET U=^S 
3020 PRINT "IHR REKORD •#" j U:t:C41 
3030 FÜR TO 60 
3030 HEXT N 
3030 CLS 
4000 GÜTÜ 100 
0000 FOR J--n TO 3 
0010 PRINT RT 10. :i0.: " BUMM " j RT 10 
10.i ’'0UMM".,RT 10. 10; "####" 

5020 PRINT RT 20.Q+1; ;RT 20.D 

H-1 "1." ; RT 20. Q t-1. " X " . i-lT 20. Qh- 1 ,i " 
M".iRT 20.0+1,: "R” 

0050 HEXT J 

0060 PRINT RT 0,. 0.1 "SIE#". ST641. " 

ICH#"jC:»:439 

0100 RETURN 

3930 STOP 

3010 LET 2$:="" 

3020 LET S=-0 

3000 LET R$:^="Ü##N#E##R#T##’T#'v'IS# 
###P#R#Stt##" 

3070 LET B=--10 
3090 LET 
3330 RETURN 


-18. Loch- 

Bei diesem Spiel sehen Sie einen Ball und ein Loch. Ge¬ 
ben Sie die Schlagstäike ein (1 bis lOO), die Ihrer Ansicht 
nach den Ball ins Loch befördert. Dann bewegt sich der 
Ball, und wenn Ihre Angabe richtig war, sehen Sie ihn tat¬ 
sächlich ins Loch fallen. Wenn Sie mehr Speicher haben, 
könnten Sie eine »Punktekarte« hinzulügen, 

5 LET 3=0 

1.0 LEIT J=INT OINDTIC.;' 

20 CÜSUe 200 

30 PRIHT r ii| iil| II I MII II ' i m il lilill i| i|l l ll l l i i lll>ll 

40 PRINT m 9. "SCHLRG?#" 

00 IMPUT R 

52 PRINT f=lT 9.7,: "########" 

55 PR.TNT RT 17.. .J.;"#" 
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€0 LET J“J+:NT C g+rnd :o 
70 GOSUB :^00 
30 LET S'-'^S+l 

35 PRINT RT 5.12."NUNNER#";S 
90 IF .J<27 THEH GOTO 40 
100 IF J>2? THEN GOTO 150 
105 PRIHT FIT 17.,2?j’'#".iRT 18.27 

,i "0'' 

110 PRINT "IHR ERGEBNIS DIESMAL 
#";S 

120 GOTO 160 

150 PRINT "HOFFNUNGSLOS. EU Mfil 
T" 

160 FÜR G='=l TÜ 100 
170 NENT G 
180 CLS 
190 RUN. 

200 PRINT RT 17.J."Ü” 

210 RETURN 


-Dame- 

Dieses Dame-Piogramm für den 16K ZX81 hat Tim Hartnell 
aus einem IK ZX80-Programm von G,D, Chalton aus Rom¬ 
lord umgeschrieben. Es spielt anfangs ganz gut fällt aber 
gegen Ende des Spiels cd>. Vielleicht wollen Sie ihm »bel- 
bringen«, ein wenig besser zu spielen. Sie ziehen, indem 
Sie die Koordinaten des Feldes eingeben, von dem Sie 
ziehen (z.B. 53, wobei 5 sich auf den rechten und 3 sich auf 
den oberen Brettrand bezieht), NEWLINE, und anschlie¬ 
ßend die Koordinaten des Ziel-Feldes. Danach entschei¬ 
det der Computer über seinen Zug (im FAST-MODUS), und 
geht wieder in den SLOW-MODUS, um das Spielbrett neu 
zu drucken und dabei die beiden Züge durchzuführea 
Nach jedem Zug fragt der Computer, ob Sie nochmals zie¬ 
hen können. Wenn nein, drücken Sie NEWLINE, und der 
ZX81 zieht. Wenn ja, drücken Sie irgendeine Taste und 
dann NEWLINE, und Sie können den neuen Zug einge¬ 
ben. Mehrlachsprünge führt der ZX81 automatisch aus. 


10 REM RRRK345673S«1*N»»«M1 

m mm bigb 

mmm ssoBOBDacflETSDBoaiDaü-'i^cao 

Br:flC«8B23456789K 

11 REM RHf=«234567S?aia;^m-»«41 

2^<s-«^a:'<B23a>axBt«^:34 mmm 1459 

■ 9 9 5S090ar:a»i'7K;909C«07809D 
9iOB:B3923456?899 

12 FAST 
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17 GOSUB 5000 

19 GOTO 430 

20 LET R='PEEK B 

30 LET S«PEEK <B+D<X>> 

40 LET T-PEEK 
50 RETURN 
55 LET 2=0 

60 FÜR ß=1652S TO 16607 
70 FÜR X=1 TO 4 
80 GOSUB 20 

90 IF <'::x<3 PND P=61 > OR R=13> 
RND <:S=52 OR S=12> RND T=@ THEN 
GOTO 300 
100 NEXT X 
110 NEXT B 
120 FOR R=1 TO 400 
130 LET B=INT ( RND'-f.80 >+16528 
140 FOR X=1 TO 4 
150 GOSUB 20 

160 IF <^X<3 flND R==61> OR R=13> 
flHD S=@ THEH GOTO 400 
170 NEXT X 
180 NEXT R 

190 PRINT "SIE HRECN GENOHNEH"; 

3 

200 SLON 

202 PRINT RT 0.0^"VON?" 

205 INPUT G 

20? PRINT RT 0..4; "#"jGj "#NRCH?” 
210 INPUT H 

215 PRINT RT 0,. 0; "############# 

220 POKE 16516+H.PEEK <.G+16'ölSy 
230 IF H<20 THEN POKE m-16516.. 1 


240 POKE 16516+G..0 
250 IF RBS c:H-G>=:= 18 OR RBS C H-G 
>=22 THEN POKE 16516+O-i+G >.-'2L 0 
260 PRINT RT 17.0J"KOENNEH SIE 
NOCHriRLS ZIEHEN?" 

270 INPUT R$ 


275 PRINT RT 17.0; 
################" 

280 IF flSiO"" THEN GOTO 430 

285 FAST 

290 GOTO 60 

300 POKE B+2:-l;D’::X>,.R 

310 POKE B,.0 

320 POKE B+D-:X>..0 

330 LET B:-'^B+2$rX X > 

340 IP B>16597 THEH GOTO 490 
350 FOR X=1 TO 4 
360 GOSUB 20 

370 IF ‘XX'^S RHD R^^61> OR R=13> 
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RHD (S=52 OR S==12^ W T=0 THEN 

GOTO 360 

380 HEXT X 

390 GOTO 430 

400 POKE B+D':X>.R 

410 POKE B.0 

420 IF B+LXX)>16597 THEN POKE B 
+D<X>,. 13 
425 SLOW 

430 PRINT flT 6.8; 

440 FOR R=--16517 TD 16616 
450 PRINT CHR$ <FEEK R>; 

460 IF 10^:INT < < fi+4 ^/10 TH 

EH PRINT TRB 8; 

470 HEXT R 
472 PRINT 

475 IF 2=1 THEN GOTO 55 
430 GOTO 200 
490 POKE B.13 
500 GOTO 430 
5000 DIH D':4> 

5010 LET CK 1 >=11 

5020 LET CK2>«9 

5030 LET D<3>=-9 

5040 LET De: 4 >=-11 

5050 FOR J=16626 TO 16725 

5060 POKE J-109.PEEK J 

5070 NEXT J 

5080 LET 2=1 

5100 RRHD 

6000 RETURN 


-Mahagoni- 

Der Computer denkt sich eine Zahl zwischen 1 und 9 aus 
(die oberste angezeigte Zahl). Sie sollen versuchen zu er¬ 
raten, welche Zahl er sich als nächstes ausdenkt, und die¬ 
se Zahl drücken. Ihre Zahl erscheint unter der ZX81-Zahl. 
Darunter ist angegebea wie oft Sie schon geraten haben. 
Je niedriger diese Zahl bei Spielende ist — d.h. wenn Sie 
die ZX81-Zahl erraten haben — desto besser. Dieses Pro¬ 
gramm paßt in IK, 


5 LET E=9 

10 LET W=IHT c:RNL>:t:9>+i 

15 LET Q=W.-'W 

25 LET 2*=C0DE INKEY$-2e 

27 IF Z=-28 THEN PRINT RT 12.E 

30 IF Z:>0 RND Z<10 THEN PRINT 
RT 12.E;2 
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, 40 LET Q»Q+Q,''Q 
45 FORINT RT E.E;N 
jf- 50 IF W»Z THEH PRINT RT 14.8 j-' 
>>'MajR 

60 PRINT RT 14..E.G 

70 LET ri=^IHT <RHD:t:5>-IHT C RND* 

30 IF M-t-N>0 RHD ri+W<10 THEN LE 
T W=N+M 
. 90 GOTO 25 


-Schmetterball- 

Mit den Tasten »5« und »8« steuern Sie die Bewegung der 
Ballschleuder am unteren Bildschirmrand und versu¬ 
chen, den Ball so lange wie möglich im Spiel zu halten. 
Sie haben neun Bälle und erhalten einen Punkt für jedes 
Mal wenn es Ihnen gelingt eines der Kästchen am obe¬ 
ren Bildschirmrand auszulöschen. Jedesmal wenn Sie ei¬ 
nen Ball verlierea nimmt Ihre Punktzahl ab. Sie haben 
fünf Kästchen-Reihen zum Zerschmettern. Die höchste 



10 GOSUB 9000 
20 GOSUB 8000 

30 IF PEEK ^ l-t-PEEK 1639 

6+256:t:PEEK 16397;>-R THEN GÜSUB 7 
000 

50 PRINT RT 
60 PRINT RT 
510 PRINT RT 20..f1-lj 
530 IF V-1 ÜR 'iY-=19 RND RBS Ol- 
X.V<3) THEH LET Ö='-Q 
540 IF OF? X*:3ü THEN LET U)---- 
N 

545 LET INKEYiIi=="8''.V/INKEY 

$s=''5" ]:i 

550 IF Y=2e THEH GOSUB 3000 
600 LET 
610 LET 
6000 GOTO 30 

7000 FORINT RT Y..Xj"B'LRT Y.Xj"T'’ 
jRT Y.N.i'’V' 

7010 IF YOi THEN LET 
7020 LET S=^S+G7 
7500 RETLIPIH 

7999 STOP 

8000 PRINT RT 19.. 0; 
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3002 PRINT RT 20.0;"############ 

3005 LET H-R+1 

3010 PRINT RT 0,7jS 

8015 IP fl=--=ie:6 TUEN GOTO 9500 

8020 LET R$isCHR$ CR) 

3030 LET Y~18 

8040 LET X- INT •'RND*26+4 J 

8050 LET 

8080 LET 

3070 LET W«1 

8075 IF RHD>.5 THEN LET N=-l 
8100 RETURN 
3999 STOP 

9000 PRINT "PUNKTE^#" 

9050 FÜR .>■■! TO 54 
9080 PRIKT "■##"; 

9070 HEXT J 
9080 LET R=15iS 
9090 LET S“’0 
9100 LET R-136 
9110 RETURN 

9509 PRINT RT 19.. 1 j " IHFlE LEISTUN 
G IST#".iIHT <;S-*1000/361SV10; "#P 
ROZENT” 

9510 PRINT TRB LEISTUNG 

IST MEISTEPHRFT" 


-Kaninchenjagd- 

Sie sollen ein Kaninchen treifea das oben über den Bild¬ 
schirm läuft. Mit »5« und »B« gehen Sie nach links und 
rechts, mit »0« feuern Sie Ihre Kaninchenflinte ab. Sie ha¬ 
ben nur zehn Schuß, können jedoch Zeile 1035 ändern, 
wenn Sie mehr oder weniger möchten. Bei jedem Treffer 
erscheint eine Anzeige auf dem Bildschirm, Zum Schluß 
wird die Zahl Ihrer Treffer immer wieder an den verschie¬ 
densten Stellen ausgedruckt, 6 oder mehr Treffer sind sehr 
gut. 


5 LET 

.10 LET R--=20 
15 LET K=2 
20 LET B^R--R 
22 LET P=B 
25 LET M-0 
30 LET C=^B 
40 LET D=25 
45 LET 3^=[> 

50 PRINT RT n>P^ 
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55 PRINT RT 
57.PRINT RT C.S; 

60 PRINT f’iT 

65 IF IHKEV$«"0" THEN GÜSUB 10 

00 

67 LET P==B 

70 LET B^-B-UNKE'T$="S" >+< INKEY 
*=■' 5 " > 

75 LET S=D 

80 LET D=D+INT CKSlRND) 

90 IF D<1 OR D>30 THEN LET K=- 
K 

100 IF D<1 THEN LET D=2 
110 IF D>30 THEN LET D=29 
150 GOTO 50 
1000 LET F^:=F+1 

1004 PRINT RT 8,. 22,: "SCHUSS#" jF 

1005 FOR G==1S TO 0 STEP -3 

1010 PRINT RT G,. 

1015 PRINT RT G.EL 

1020 NENT G 

1025 PRINT RT S.22j"##########" 
1030 IF RES < D ::i«0 THEN G 

ÜSÜB 2000 

1035 IF F=10 THEN GOTO 3000 
1040 RETURN 
2000 LET N:=rH-l 

2005 PRINT RT 10.10."IHRE TREFFE 
R ";M 

2007 FOR T-a TO 6 

2015 PRINT RT C.D-1j'1#|" 

2017 PRINT RT C..D~1j", #■" 

2020 PRINT RT C.D-1;" # " 

2022 PRINT RT 1,.C:-; "■" 

2025 PRINT RT C.D-l.i "###" 

2027 PRINT RT 1,, D-;"#" 

2030 HEXT T 

2040 PRINT RT 10.10j"########### 
##########" 

20-50 RETURN 

3000 P'RINT RT 0.0; "SPIELENDE" 
3010 FORINT RT RNDT-:20..RND^:i5,i"FIF 
ERZIELTEN#":M 
3020 GOTO 3010 
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DaU 


Dies ist ein ganz einfaches Zeichen-Programm für den IK 
ZX81. Sie steuern mit den Tasten »5«, »S«, »6« und »7« die Be¬ 
wegung des Blinkpunkts und zeichnen damit Bilder Ihrer 
Wahl. 


le LE ’^ '^■--■■■16 

20 LET V=IHT ^ 

30 ir THEH GOTO 30 

70 LET IHKEY$=’'5'‘ RHD V>2 

IHKEY$=="S" RND Y<60:> 

S0 LET INI<EV$="6” RHD X>2 

IHKEY®=--:"7'‘ RHD X<40> 

110 UHPLOT 'tLY 
120 PLOT V.Y 
130 GOTO 70 


-Fangen- 

Dos Spiel beginnt mit einem rollenden Ball, den Sie mit 
den Tasten »6* und »7« so lenken sollen, daß er möglichst 
viele schwarze Kästchen berührt. Das Programm gibt den 
jeweiligen Punktrekord an — da jedoch die Schwierigkeit 
während des Spiels ansteigt, wird es immer schwerer, die 
Punktzahl zu erhöhen. Wenn Sie keine Lust mehr ha¬ 
ben das Spiel nach diesen Regeln zu spielen versuchen 
Sie, möglichst vielen schwarzen Kästchen auszuweichen. 


5 LET U=0 
10 FOR Z=1 TO 60 
20 PRINT RT 3+RND:t:i6.2+RND*29; 

30 NENT Z 
40 LET E«16336 
50 LET 16397 
60 LET T=0 
70 LET M«0 
100 LET X-10 
102 LET K=1 
105 LET 
107 LET 

110 LET V«10 

111 LET R=X 

117 POKE 33'4:e-t-fl+H-PEEK E+256*PE 
EK F.0 

118 IF PEEK <33:^^V-^X-t-l+PEEK E+25 
6*PEEk; F:)-128 THEN GOSUB 500 
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120 POKE 3:3^:V4-x+l4pEEI< E+256:*pr£ 
EK f,o2 

121 LET T=T+3 

122 LET fl=X 

123 IF T>200 THEN GOSUB 500 

124 LET B:=Y 
130 LET 

135 IF Y<2 OR >^>30 THEN LET K=:- 
K 

136 LET F1*=INKEY* 

137 IF THEN LET R$^B$ 

133 LET Y^-Y-(;R$=="7"'> 

139 IF Y<2 THEN LET 

140 IF Y>1S THEN LET Fi!?=-"7'' 

150 LET BSi^Pl-¥ 

170 GOTO 117 
500 LET M«ri+1 

502 POKE'33r/-hXH-l+PEEI< E+2!36;(^PE 
EK F.1G9 

505 PRINT RI 0..0;'’IHRE PUNKTZFlH 
L IST#'YM;RT 15 j "SEIT • tt"T 
513 FÜR 2=1 TO 7 . 

515 PÜKE 33S:Y+X+MPEEK E-h256:<::PE 
EK F,. 189 

516 PÜKE 33:liY+X + l4-PEEI< E-H256:t:PE 
EK F,.23 

518 PÜKE 33:+;V+X+i+PEEI< E+256»:PE 
EK F.52 
520 NEXT Z 
522 LET R = 117Y.M 

525 PRINT RT 20,. 0^ "GESRMTPUNKTE 

527 FÜR hK-1 TO 6 
52S PÜKE 33?Ni-‘4-X4 l+PEEK E-I-256YPE 
EK F.. 139 

529 PÜKE 33:^.•:V+X•^-^fPEBK E-I-256YPE 
EK F.52 

530 NEXT H 

535 PRINT RT 20. 8,; 

540 IF T>200 THEN GOSUB 1000 
560 PRINT RT 0.• 0j ” 

570 RETURN 

1000 IF R>U THEN LET U=R 
1010 PRINT RT 0..0J "SPIELENDE - G 
ESRMTPUNKTE^ -#".R.RT 1..5,:"REK0R 
D -#";U 

1020 FÜR TD 23 

1022 PÜKE 33-4:V+X-i-1,fPEE!< E-h2564'PE 

EK F.1S9 

1025 PÜKE :334V+X+1-i-F'EEK E-I-2564PE 
EK F,.52 
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1030 HEHJ H 
1035 LET ri=0 
1040 LET 
1045 LET R==0 
1050 RETURN 


-Huambo- 

Für dieses Spiel sind zwei Programmversionen aufgeführt. 
In der ersten Version gehören dem Computer die inver¬ 
sen »C«, und er versucht, alle vom oberen zum unteren 
Rand des Spielbretts (5x5 Felder) zu bringea ehe Sie Ihre 
inversen »H« von unten nach oben gebracht haben In 
der zweiten Version gehören Ihnen die inversen L- 
Zeicherx die Sie von links nach rechts bringen sollen 
während der Computer versucht seine inversen $- 
Zeichen von oben nach unten zu bringen. Bei diesem 
Spiel können die »Figuren« einander nicht schlagen und 
die Spieler ziehen jeweils um ein Feld in beliebiger Rich¬ 
tung (vorwärts, rückwärts, nach oben, nach unten oder 
schräg), Um zu ziehen geben Sie das Feld, von dem Sie 
ziehen und das Ziel-Feld zusammenhängend ein, Zum 
Beispiel bringt Sie »EID2« von Feld El nach D2. Die beste 
Taktik ist, möglichst viele Züge des Gegners vorausschau¬ 
end zu blockieren, während man gleichzeitig mögtichst 
viele eigene »Figuren« auf die gegenüberliegende Seite 
bringt, 


5 

LET 

C=U6 

8 

7 

LET 



10 

DtM 

R< 2Z 


20 

DIM 

Gt 7' t 


30 

FÜR 

3 

TO 5 

40 

LET 

f-K R) 


70 

FOR 


TO 23 

80 

LET 

W. R: 


90 

HEN1 

r R 


1 10 

LET 

B 1 

-■•3 

120 

LET 

D' . 

4 

130 

LET 

8^: 

-6 

140 

LET 


4 

150 

LET 

D^5 

=—5 

160 

LET 

B<. G 1 

- z 

105 

GOSUEi 1000 

170 

FOR 

R=2e 

TO l STEP -1 

175 

FÜR 

J:^l 

TO 5 

180 

LET 


T c:RNDT3>h-1 

183 

IF » 

4 INT 

RND E«3 TH 

EM GOTO 210 
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190 ir Ra=l>«C HHD T 

HEN GOTO 270 
200 HEXT J 
210 HEXT n 
220 FOR R=7 TO 20 
230 FOR B=4 TO 6 
235 IF 5 :ü(INT <F|/'5:3>=fl AND B=4 
THEH GOTO 250 

240 IF nc:R:;-=C RND R<R+B<B>>=0 T 
HEH GOTO 270 
250 HEXT B 
26Q HEXT R 

^ 265 PRINT "ICH GEBE flUF";N 
270 LET R< R+BC B ? >-C 
2S0 LET Rc:fi>0 
290 GOSUB 1000 
300 REM SPIELER 
310 INPUT R$ 

320 LET D=--5*CC0DE R51-3S5+CODE R 
eBc;2?-28 

330 LET E-54:<CÜDE R$'r 3 )-33 >+COD 
E fl®<4>-28 
340 LET P<E>»=H 
350 LET RtD>=0 
360 GOTO 165 
1800 LET X»0 
1010 LET 'r-e 

RT 20.0; 

1013 LET 2==RNDT.TRHD 

1015 PRINT RT 20.0;"- 

102© PRINT RT 5.0;"1 234 5" 
1025 PRINT 
1030 FOR n-l TO 25 
1040 PRINT CHR* f:R<fl>;'j 
1050 IF 5i:INT C R.-'S THEH PRINT 
(R.'-5+37> 

1060 IF R<n>«C: RHD R>20 THEH LET 

X=X4.l 

107© IF R<R>=^H RND R<6 THEH LET 
V=Y+1 

1080 HEXT R 

1090 PRINT "1 234 5" 

1095 PRINT 

110© PRINT "MENSCH#"JV;"^ttCOMPUT 
ER#";X 

1101 IF Y>X THEH PRINT "SIE GEWI 
NNEN" 

1102 IF Y>X THEN PRINT "-ICH 

GEWINNE" 

1105 IF X=4 OR Y=4 THEN GOTO 112 
0 

1110 RETURN 
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1120 IF X>Y THEH PRINT "COMPUTER 

1130 IF V>X THEN PRINT "MENSCH".i 
1140 PRINT "GEUINNT MITtt’'jFlBS (X 
-V>,: "^PUNKTEN" 


5 

LET 

C^I41 


7 

LET 

H=il40 


10 

DIM 

25 > 


20 

DIM 

7 > 


30 

FOR 

R-=3 TO 5 


40 

LET 

Rc: R > -C: 


50 

NEXT R 


70 

LET 

R-: 3 1 


30 

LET 

R< 16>=H 


90 

LET 

R': 21 :)=H 


1 10 

LET 

B': 1 :'“5 


120 

LET 

B':2>==4 


130 

LET 

ß< 3 >^=6 


140 

LET 

B< 4 >=-4 


150 

LET 



160 

LET 

B< 6 >“--6 


165 

GOSl 

JB 1000 


170 

FOR 

R=20 TO 1 

STEP --1 

175 

FOR 

J«1 TQ 5 


180 

LE~ 

B=INT <RNDT3H1 

185 

IF ’ 

5:*;INT ':fi.^-5 

>R RND B=3 TM 


EN GOTO 210 

190 IF AND fl< B > >--0 T 

HEN GOTO 270 
200 NEXT J 
210 NEXT R 
220 FOR R=7 TO 20 
230 FÜR B=-4 TÜ 6 
232 IF ':R=::6 DR ÜR fi=16> RN 

D B==4 THEN GOTO 2G0 
235 IF STCINT RND B”4 

THEH GOTO 250 

240 IF R':;R?-^C RND R': fl+B< B > >0 T 
HEN GOTO 270 
250 HEXT B 
260 NEXT R 

265 PRINT "ICH GEBE RUF’^W 

270 LET fl<R+B';B>>^C 

280 LET R>;R>-^0 

290 GOSUB 1000 

300 REM SPIELER 

310 INPUT fl$ 

320 LET D=^54:<C:0DE R¥-3S iH-CQDE R 
2 >-2S 

330 LET E-5>^:(C0DE R«-.: 3 X-SS i^+COO 
E R«c:4>-2S 



340 LET 

35Ö LET ri<D>:0 
3---:0 GOTO 1655 
1000 LET K==0 
1010 LET V==:0 
1013 PFUN T RT 20.0.1 

1013 LET Z=^RND:t:S:RMD 

1015 PRINT RT 20.0i"-~.-..- 

10;;:;0 PRINT RT 5..0.i"l 2 3 4 5" 

1025 PRINT 

1030 F-OR FL=i TO 25 

1040 ir R(R::'-:-i3 THEN PRINT 

1045 IP R(PK>0 THEN PRINT CHRJfi 

''FKR) "#'L 

1050 IF STINT 03.'-5>R THEN PRINT 

-rR.-O+a?:- 

1060 IP R(:R>«C RND R>20 THEN LET 

1070 IF R<R>=H RND STINT c:R-'-5':'=R 
THEN LET Y=:Y+i 
1080 NEYT R 

1090 PRINT "1234 5" 

1095 PRINT 

1100 PRINT "riENSCf-itt".YiL "tt##C0MPU 
TERtt";M 

1101 IF Y>X THEN PRINT "SIE GELI 
NHEH" 

11012 IF Y>Y THEN F=‘RIMT .ICH 

GEWINNE" 

1105 IP Y”3 ÜR Y^y:; THEH GOTO 112 
0 

1110 RlETURN 

1120 IF N>V THEN PRINT "COMPUTER 

1130 IF Y>::<; THEN PRINT "NENSCH'Y 
1140 PRINT "GEWINNT MITit'YRES 
-Y>.; "ttPUNKTEN" 
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-Sunnyboy- 

SUNNYBOY ist ein großes Gesicht, das über den Bildschirm 
hüpft und blöde grinst. Drücken Sie eine Taste, während 
er über die Markierung in der Bildschirmmitte hüpft — 
dann bleibt er stehen und schaut böse drein. Sie können 
zehn Anschläge aut zehn Sunnyboys verüben. Dieses IK- 
Spiel läuft auf ZX80 mit neuem ROM und ZX81, Spielen Sie 
es in FAST. 


10 DIM 
20 LET 1 
30 LET 

40 LET Fl«c:3>-"«Vf' 

50 LET W*" 

60 LET R5K';5>=''«f Af' 

70 LET S=0 
80 FOR F«1 TO 10 
90 PRINT flT 5. 13,. " 

100 PRINT TRB 13i"H" 

110 F'OR N=1 TO 20 
120 PRINT RT 0..N,;flS( 1 > 

130 PRINT TRB 

140 PRINT TRB N;Fi$^3> 

150 PRINT TRB 
170 PRUSE 20 

180 IF INKEYstlO’'" RND THEN 

GOTO 500 

190 NEXT M 

200 CLS 

210 HEXT F 

220 CLS 

230 PRINT "SIE ERWISCHTEN#";S 
290 STOP 

500 PRINT RT 2,. Ni REE':; 5 

F3J0 LEIT S“S-i-l 

520 PRUSE 60 

530 CLS 

540 LET M~22 

550 HEXT N 

560 GOTO 210 


31 





Nim 


Dieses IK-Progiaram basiert aui einem Spiel das in dem 
Film »Letztes Jahr in Marienbad« vorkam. Bei Spielbeginn 
befinden sich zwischen 15 und 23 Gegenstände oui dem 
Bildschirm, und Sie und der Computer nehmen abwech¬ 
selnd einen zwei oder drei davon weg. 


10 LET ri=0 

20 LET E«i0 

30 LET 2=15+INT <RND*10> 

40 IF 2:t:lNT <Z''2:‘=^2 THEN GOTO 

30 

50 LET H=3 

60 IF E>0 THEN PRINT RT ?;0i”S 
IE HRHriEN#".iCHR!$ E-i-15G " ICH HR 

HM#'LCHR$ <Q-^’15S:> 

65 PRIHT 
70 FOR K-1 TO Z 
80 PR Ihr K.i 

90 IF RND>.6 THEN' PRINT 
100 heh:t K 

110 INPUT E 
120 LET Z===Z-E 

^ 130 IF 2=0 THEN PRIHT ."ICH GEH 

INN£#";W 

150 LET Q=2-1-IHT < C Z-1 Vf H-t-i ) > 
>-f-INT <RND^:4:5 

160 IF Q>Z OR Q<1 OR Q>3 THEN G 
OTO 150 

. 170 LET 2=2-0 

180 IF 2=0 THEN FORINT ."SIE GEW 
INNEN#" .iW 
200 CLS 
210 GOTO 60 



-noh-Würfeln- 

Sie und der ZX81/ZX80 mit neuem ROM würfeln abwech¬ 
selnd mit einem vierseitigen Würfel um nach und nach ei¬ 
nen Floh zu zeichnen Der LK-Computer macht die ganze Ar¬ 
beit (und gewinnt des öfteren), Der Computer zeichnet sei¬ 
nen Floh rechts und Ihren links Mit einer Eins bekorrrmen 
Sie den Kopt mit Zwei und Drei die Beine, mit Vier den Kör¬ 
per. Die Zahlen müssen in der richtigen Reihenfolge gewor¬ 
fen werden (d.h. erst Eins, dann Zwei usw.) damit die Zeich¬ 
nung entsteht. 

i0 LET 

20 LET £1$=“^— 

30 LET 
40 LET 

50 LET E$='*V " 

60 DIM M<2> 

65 LET F$=’'MEH3CH###2X###'' 

70 FÜR TO 2 
80 LET D=INT <RHD'4:4H1 
90 PRINT flT 0.0;F*<a-.[*?>-6 TO 
<N#7>-l>i"#HRT EINE#".:D 
100 PRUSE 100 

110 IF D-PI/PI=Ha-r3 THEN LET MC 
N >=D 

120 IF MC HX PI THEN GOTO 150 
130 PRINT RT 3.,NT:^:PIjB? 

140 PRINT TRB N3c4:PI;C* 

150 IF M<NX3 THEN GOTO 170 
160 PRINT RT 2,.H4:4PI,;R$ 

170 IF MCNX2 THEN GOTO 190 
1S0 PRINT RT 5.H*:t:(='I;R$ 

190 IF MCNXPI-PI THEN GOTO 228 
200 PRINT RT PI..N-*:*PIf4;C>i® 

210 PRINT TRB H4:tPI-f4^ E?B 
^ 220 IF MCHXPI THEN PRINT F*C C N 

’ pXG TO CN4:7>-1 .>j "#HnT GENOHHEN 

230 ne:^t N 
240 GOTO 70 
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-Mondlandung- 

Bei diesem Mondlande-Spiel (das mehr als IK benötigt) sol¬ 
len Sie Ihre kleine Raumiähre oui der Station am Ende der 
Pfostenreihe auf der Mondoberfläche landen Sie geben 
zwei Dinge ein: SCHUB, womit der Abstieg und RICHTUNG, 
womit die Seitwärts-Bewegung gesteuert wird Das Spiel ist 
aus, werm Sie a) bruchlanden b) die Bewertung Ihrer Lan¬ 
dung erhalten Der Computerausdruck zeigt ein Musterspiel 
in Aktion, 


llllllllillllllll VW«iAi 


GESCHU: -14 TREIBST^ 865 

ZEIT^ 5 HÜEHE^ 1416 

SCHUB? 12 DRIFT? -6 


1 GOTO 42 

2 IF H<50 RND V<20 RND V>-15 
RND RBS -CS-MKS THEN GOTO 37 

3 IF H>1750 THEN GOTO 40 

4 RETURN 

5 LET R=R/7 

6 LET T=T-^4 + INT <RND:^J2+1> 

7 LET V=^V-^R^:^3-i^-3*R^^D 

8 LET H=H-i-V-2e-H0:t:RHD 

9 LET F=F-<nBS < R >+RBS 
6*RHD > 

10 GOSUB 2 

11 IF H<20 GR F<5 THEN GOTO 35 

12 LET U=H/'100 

13 LET 2=2+B-'-2+2-RND^3 

16 PRINT RT N,.N.:'■###" 

17 PRINT RT 16-U,2-l-l.; "rt ” 

13 LET H.= 16~U 

19 LET y,=Z+l 

21 PRINT RT I6,.0.i "111111111111 

llllllll"< TO 
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2S PRINT RT 17.0^'*GESCHN^#-MH 
T V; "TREIBST^#'*; IHT 

IHT T.; "HDEHE^#"j IN 

T Hj 

29 PRINT "SCHUB?#"; 

30 INPUT R 

31 PRINT R.: "DRIFT?#"; 

32 INPUT B 

33 PRINT B;"##". 

34 GOTO 5 

35 PRINT "CRRSH GESCHNINDIGKEI 

T#"jRBS V;"#¥^n ^ ' 

3S GOTO 35 

38 PRINT "SIE SIND GELRHDETSIBE 
WERTUNG#"; 100:.t:<30--INT RBS V>+IHT 

V; "P", 

39 GOTO 33 

40 PRINT "SIE HRBEH FLUCHTGESC 
HWIHDIGKEIT ERREICHT" 

41 GOTO 40 

42 LET H=1450 

43 LET F=-S27+50:^RND 

44 LET T-0 

45 LET Z--=15:*:RNC> 

46 LET R=1 

47 LET B==0 

43 LET ri=19#:RHD 

49 LET V-==0 

50 LET IJ=0 

51 LET N=e 
70 GOTO 6 


-Vorführprogramm- 

Laden Sie dieses tolle kleine Programm, wenn Sie Ihren 
Freunden dos erstemal Ihren ZX80 mit neuem ROM oder Ih¬ 
ren ZX81 vorführen wollen. Loschen Sie die PAUSE-Zeilen 
außer Zeile 180, wenn Sie das Programm im SLOW-Modus 
laufen lassen. Es braucht IK, 

10 LET R$="HRLLO,. ICH BIN EIN 
COMPUTER" 

20 GOSUB 500 

30 LET R$="SIE KOEHNEN MICH 2E 
DDY NENNEN" 

40 GOSUB 500 

50 LET ns«"ICH KRNN RECHNEN... 

60 GOSUB 500 

70 LET RS«"GEBEN SIE EINE RUFG 
RBE EIN" 
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75 GOSUE 500 

80 LET R$="UHD ICH LOESE SIE" 
85 GOSUB 500 
30 IHPLIT fl* 

100 LET fl*="Dfl3 ERGEBNIS IST "+ 
STR* VflL fl* 

110 GOSUB 500 

120 LET fl*=^"ICH MUSS JETZT HEG" 
130 GOSUB 500 
140 CLS 

150 PRINT FiT 3,. 13i‘‘l VÄ V 
160 PRINT TRB 13; "PM U I" 

170 PRINT TflB 10.-"^^ ^ ■" 

180 PAUSE 3333 
130 RUN 
500 CLS 

S10 FOP H'^l TO LEN R$ 

520 PRINT flT 10.N;fl*':N>.i "4:" 

530 PAUSE 20 
540 NEXT N 
550 PAUSE 50 
560 RETURN 


-Musik- 

Dieses Programm erzeugt eine ziemliche Katzenmusik, zeigt 
Ihnen ober in Giundzügerx wie es gemacht wird. Die Aus¬ 
gangsidee stammt von LG. Tanner von Waddoa Croydon. 
Stellen Sie ein Transistorradio in die Nähe des Computers, 
damit Sie die »Musik« hören Möglicherweise hören Sie sie 
auch aus Ihrem Fernsehapparat wenn Sie die Lautstärke 
auldrehen; es kann sein daß Sie von der Stellung »beste 
Büdqualitöt« leicht abweichen müssen damit die Musik klar 
zu hören ist. 


1 

LET 

K= 

100 


2 

FÜR 

G= 

1 

TO 

2 

3 

FÜR 

R* 

1 

TO 

[< 

4 

GOSI 

UB 

30 


5 

NEJ<:' 

T R 




6 

FOR 

A= 

1 

TO 

K 

7 

GOSI 

UFS 

30 


S 

NEX 

T fl 




9 

FÜR 

R« 

1 

TO 

f; 

10 

LET 

J« 

.J+1 


11 

GOSUB 

30 


12 

NEXT fl 




13 

PAL.) 

SE 

5 



14 

FOR 

5= 

1 

TO 

3 

15 

FOR 

fl« 

1 

TO 

1? 
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IG 

GOSUB 

30 

17 

NEXT fl 


18 

HEXT S 


19 

HEXT G 


2Q 

PRÜSE 

5 

21 

FOR fl» 

1 TO 

22 

GOSUB 

30 

23 

NEXT fl 


24 

FOR ft» 

o 

I- 

25 

GOSUB 

30 

2G 

LET .J= 

J+1 

27 

NEXT n 


28 

PAUSE 

10 

29 

RUN 


30 

SLOW 


31 

FAST 


32 

LET 

0 

33 

RETURN 



-Gefahr- 

Bedrohliche außerirdische Wesen stapfen den Bildschirm 
hoch auf Sie (ein inverses V) zu. Sie können mit den Tasten 
»5« und »8« nach rechts und links ousweichen, und dos Spiel 
dauert so lange, bis eines Sie erwischt Dieses Programm 
muß in FAST laufen. Es braucht nur IK 


1 LET P-ie 

2 LET S=e 

3 PRINT flT 0.P.i"V'- 

4 PRUSE 13 

5 SCROLL 

6 PRINT RT VHV.iflT 

0,.31j 

7 IF PEEK <P+16743>>0 THEN GO 
TO 11 

8 LET P=P+< IHKEy$-''S" .'5-': INKEY 
*«" 5 "> 

9 LET S*S+1 

10 GOTO 3 

11 SCROLL 

12 PRINT S 
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-Magisches Quadrat- 

Der Computer (ein ZX80 mit neuem ROM oder ein ZX81 
mit jeweils mehr als IK) erzeugt ein magnetisches Qua¬ 
drat, in dem die Zahlen waagrecht, diagonal und senk¬ 
recht die gleiche Summe ergeben. An drei Stellen er¬ 
scheint eine Null, und Sie sollen herausfinden, welche 
Zahlen an ihre Stelle gehören, Geben Sie eine Zahl ein, 
und der Computer sieht nach, ob sie anstelle einer der 
Nullen paßt. Wenn Sie dos magische Quadrat vollendet 
haben, beendet der Computer das Spiel 

1 LET n=:6 
5 DIM ROi' 

10 Din B>:9> 

15 LET 

20 LET R=INT 
25 LET ..1=0 

30 LET B=INT <RHDT.9>-H 
40 LET C=INT CRHD>t:L=iHl 
50 IF fl=B DR R=C OR C R■^B >«C OR 
fl=<B+C> ÜR OR B=^C THEH 

GOTO 30 

60 LET R< 1 >=R-<-E 
70 LET R< 2 B+C > 

S8 LET fl<3r.>=l=l+C 
90 LET R(;4>=fl-B+C 
100 LET 

110 LET flc:6i'=R+B-C 
120 LET f\<:7y=f\-c 
130 LET f\CBy^’f\+B+r. 

140 LET 

150 FOR Z=1 TO 9 
160 LET B<Z>=Rc;z::' 

171 HEXT 2 
130 LET K>nBS R 
190 LET B<K>=0 
200 LET K=fiBS B 
210 LET B<K:;'=0 
220 LET k^RBS C 
230 LET 0CK::'=0 
235 LET J=.J+-1 

240 PRIHT RT 10.^’’VERSUCH HR.#" 

.J 

245 PRINT 

247 PRIHT 

248 LET 1=0 

250 FOR Z=1 TO 9 

255 PRIHT TRB I;B-:Z>j 

260 LET 1=1+4 

270 IF 1=12 THEH LET 1=0 

275 IF 1=12 THEH PRIHT 
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280 HEXT Z 

2S5 IF M*9 THEN PRIHT ...... "SIE 

HRBEN ES GELOEST" 

£37 IF M=9 THEN STOP 

289 PRINT ...."SIE HRBEN#'M1;"# 
RICHTIGE" 

290 INPüT W 
£95 LET ri*0 

300 FOR Z=1 TO 9 

305 IF U=-99 THEN GOTO 320 

310 IF Rc:2;'=-W THEN LET BCZ^^W 

320 IF 0c;2><>0 THEN LET f1=M+l 

330 HEXT Z 

340 GOTO 235 


-Einundzwanzig- 

Sie und der IK ZX81, abwechselnd, versuchen möglichst 
nahe an die Summe von 21 heranzukommen, sie aber 
nicht zu überschreiten. Wenn Sie mehr Speicher haben, 
erweitern Sie das Programm, so daß die Ergebnisse meh¬ 
rerer Spiele ouladdlert werden 


10 LET H«0 

20 LET c=0 

30 PRINT ”1 WUERFELN. 2 fiUFHOE 
REN" 

35 If4PUT R 

40 IF Pi~2 THEN GOTO 90 

50 LET H=H+INT < RND^;6 >1 

60 GOSUB 260 

70 PRIHT RT 4.8j «" jH 

S0 GOTO 35 

90 IF OH RHD C<22 OR 021 OR 
H>21 OR H=£l RHD C«21 THEN GOTO 
140 

100 LET C=OINT <RND#6)-H 

110 GOSUB 260 

120 PRINT RT 8.8;"ICH #";C 

130 GOTO 90 

140 PRIHT RT II.S; 

150 GOSUB 260 

160 GOSUB 260 

170 IF H=C OR H>21 RND 021 THE 
N GOTO 240 

180 IF COH OR H>21> RND C<22 T 
HEN PRINT " ICH GENIHNE "; 

190 IF <C<H OR 021 > RND H<22 T 
HEN PRINT "SIE GEN IHNEN".: 
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200 GOSUB 260 
210 GOSUE 260 
220 CLS 
230 RUN 

240 PRINT " UNENTSCHIEDEN " 
250 STOP 

260 FOR E«l TO 68 
270 NEMT E 
280 RETURN 


-Turmbau- 

Suchen Sie sich unter 12 und 3 einen Turm aus, Dann las¬ 
sen Sie den ZX81 die Türme bauen und schouea ob Ihrer 
zuerst fertig wird. Die Routine in-Zeile 120/130 soll die Will- 
kürlichkeit des Zufallszahlengenerators erhöhen. 


10 LET D“30 
20 LET fi=5 
30 LET B=R 
40 LET C*fl 
50 PLOT 10,. H 
Se PLOT 30.B 
70 PLOT 50.C 
80 LET R«R+RHD 
80 LET B=B+RND 
100 LET C=C-t-RND 

110 IF <fl>D OR B>D OR C>D> THEH 
GOTO 140 

120 LET X^IHT <RND*6>+1 
130 GOTO 50*<X<4>+60S:<X>3 RND fl 
<6>-*-70*<X=6t' 

140 PRINT RND R>C < B>R-^ 

ß>C>+3*:CC>R RND OB >J "ttGEWINNT” 


-Neglag- 

Dies ist das umgekehrte GALGEN-Spiel. Sie denken sich 
ein Wort aus, und der ZX81 versucht, es zu erraten. Bei 
Spielbeginn fragt der Computer, wieviele Buchstaben 
dos Wort hat. 

Nun rät er einen Buchstaben Kommt dieser Buchstabe in 
Ihrem Wort vor, dann geben Sie die Position ein, Heißt Ihr 
Wort Z.B. RATTE und der Computer rät »E«, geben Sie »5« 
ein. Ist der Buchstabe falsch, geben Sie »0« ein. Nach ei- 
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nem richtigen Buchstaben wartet der Computer so lange, 
bis Sie 0 eingeben, um Doppelbuchstaben zu berück¬ 
sichtigen. Werm er also »T« rät, antworten Sie mit »3«, NEW- 
UNE, »4«, NEWLINE, »0«, Dieses Spiel macht großen Spaß, 
und Sie werden merken, daß der ZX81 eine viel größere 
Chance hat, Ihr Wort bei seinen zehn Versuchen zu er¬ 
raten, wenn Sie sich ein langes Wort ausdenken. 


10 REM ETRONRISHDLFCMUGYPWBJKQ 
XV2 

20 LET L“10 

30 PRINT "WORTLnEHGE?" 

40 INPUT N 
50 CLS 

80 DIM R<26:-' 

90 DIM C<N> 

100 DIM G<N> 

110 FDR 2=1 TO 26 

120 LET fl<2>=PEEK <1G513+Z> 

130 IF Z<N-H THEN LET G<2>=4 
140 NEXT Z 

150 LET 2= INT <RHD5»:3>+1 
160 LET R!S=CHR* Fi<Z) 

170 FOR .J=Z TO 25 
180 LET J-H > 

190 HEXT J 
200 LET 1=1=0 
210 PRINT RT 3..4J 
230 FOR 2=1 TO N 
240 PRINT CHR$ G<Z>j 
250 HEXT 2 
260 PRINT 
270 PRINT 

280 PRINT TRB S.i ""LEBEN = #" i L; "#" 
^TRB 8 j "ICH RRTE#".iR* 

300 INPUT B 

310 IF B=0 THEN GOTO 350 

320 LET fl=l 

330 LET GCB>=CODE R$ 

340 GOTO 210 
350 LET F»0 
360 FOR 2=1 TO N 
370 IF G<Z>=4 THEN LET F=1 
. 380 NEXT 2 

390 IF F=0 THEN PRINT TRB 8;"IC 
H GEWINNE#"jW 
410 IF R=0 THEN LET L=L-1 
420 IF L>0 THEN GOTO 150 
430 PRINT TRB 8j‘'SIE GEWINNEN" 
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Leisetreter 


Bei diesem IK ZX81-Spiel steuern Sie ein inverses »H«. 

Mit »1« geht er nach links, mit » 0 « nach rechts. Das Ziel ist, 
den wandernden schwarzen Kästchen auszuweichen. 
Wenn Sie eines berühren, verwandelt es sich in Ihre 
Punktzahl Gut ist ein Ergebnis über 95. 

(Hiermit wird die Zeile verändert, ab der SCROLL in Funk¬ 
tion tritt.) 


5 LET K=0 
10 POKE 16418.8 
20 LET 
30 LET 
40 SCROLL 

50'-PRIHT FIT R.B,. "jr' 

60 LET C=R 
70 LET D=e 

75 IF INKEYS«'"- THEN GOTO 90 
80 LET RND INKEY*»"1" 

)-KB<19 AND IHKEY$="0'-) 

90 PRINT AT C.Dj" " 

100 PRINT AT 3. INT < RND:4;20 t'; 

110 LET K=K-i-l 
120 PRINT AT 6.DJ 
130 IF PEEK <PEEK l&39B+2^6tPEE 
K 16399 >0128 THEN GOTO 40 
140 PRINT K 


-Bomber- 

Ein kleines Flugzeug gleitet über den Bildschirm. Drücken 
Sie eine beliebige Taste, um das Ziel (grauer Klecks) zu 
beschießen. Der Strich am oberen Bildschirmrand wird 
immer kürzer, und Sie können so lange spielen, bis er ver¬ 
schwunden ist. Wenn Sie das Ziel tretterx erscheint ein 
BUMM. Mit dem ZX81 braucht dieses Spiel IK. 


10 LET T«16 

15 LET B=0 

16 LET D=1 
20 PRINT "" 


30 LET F=64 
40 FÜR N=1 TO 30 
50 PRINT AT l.N-1.'‘#^"jRT S.T 
'4HK#".i AT D.N; -'S'- 
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60 PRUSE 15 

70 LET B=B OR INKEV$<>'‘" 

80 IF B THEH GOTO 280 
90 LET T'-'T+INT RHD:*:3 >-l 
100 LET F=F~1 
110 LIHFLOT F,.43 
120 IF NOT F THEH STOP 
130 NEXT N 

140 PRINT RT l,.30j'-##" 

150 GOTO 40 

200 PRINT RT D.Nj"#" 

210 LET D«D+1 

220 IF D=8 RHD H=T THEN PRINT T 
RB N.i''BUMM",. 2 
230 IF D<8 THEN GOTO 90 
240 LET B=0 
250 LET D»1 
260 GOTO 90 


-Rallye-— 

Bei diesem IK ZX81-Spiel sind Sie ein inverses V und versu¬ 
chen eine sehr schwierige, hindemisreiche Strecke zu be¬ 
wältigen Während des gesamten Spiels, läuft neben der 
Straße die Punktuhr. Je höher die Punktzahl wird, desto bes¬ 
ser. 

Jedes Ergebnis über 183 ist sehr gut. Spielen Sie out dem ZX81 
in FAST, und lenken Sie Ihren Flitzer mit »5« und »8«, 


10 LET P=16770 
20 LET S=^0 
30 SCROLL 

40 LET B*«'l ######## 1” 

50 LET B*<RHD*7-f-2>="M" 

55 LET B$':RND^7+2>="M" 

60 PRINT B$;RT O.10;S 
70 IF PEEK P<>0 THEN STOP 
80 POKE FMS7 
90 PRUSE 20 
100 LET S«=S-t-l 

110 LET P=P-t-': INKEY$*-"8” IMKEV 
*=■■5" > 

120 GOTO 30 
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-Leben-- 

Hier werden Geburt Wachstum und Tod einer Zellenkolo¬ 
nie mit taszinierende Auswirkungen durchgespielt Die Zel¬ 
len leben aul einem Raster (bei unseren Versionen ist es ein 
lO X lO Raster> Sie werden geboren leben und sterben ent¬ 
sprechend den Conway-Regeln 

Jede Zelle aul dem Raster hot acht Nachbarn 
Jede Zelle mit zwei oder drei Nachbarn überlebt 
bis zur nächsten Generation 
Wo drei Nachbarzellen vorhanden sind (nicht 
mehr und nicht weniger), wird eine neue Zelle ge¬ 
boren. 

Jede Zelle mit vier oder mehr Nachbarn stirbt an 
Überbevölkerung. 


5 LET G=0 
7 RAND 

10 DIM flC10.10> 

20 DIM Bc: 10. 10 > 

30 FOR >4=2 TO S 
40 FOR Y=2 TO 9 

50 IF RHD>.35 THEN LET FiC.X.V:-« 

1 

60 LET 
70 NE>4T V 
80 myj X 
90 GOSUB 1000 
95 LET G=G+1 
100 FOR X=2 TO 9 
110 FOR Y*2 TO 9 
120 LET C=0 

130 IF R<X-1.Y-1>=1 THEN LET C= 
C+1 

140 IF fl<X-l.Y>l THEN LET C=C+ 

1 

150 IF R<X-1.V+1>=1 THEN LET C= 
C+l 

1S0 IF fl<K.Y-n=l THEN LET C«C+ 

1 

170 IF R'::k.Y-H>« 1 THEN LET C=C-f- 

1 

180 IF flCX+l.Y-l>=l THEN LET C= 
C+1 

190 IF R<X-H..Y>=1 THEN LET C=C+ 

1 

200 IF flCX-t-l.Y-i-1 >=1 THEN LET C- 
C+1 

210 IF R<X,.V>=1 PHD C<>3 RND C< 
>2 THEN LET B<X.Y>»0 
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220 IF fiO:.Y>«0 RND C=3 THEH LE 
T 

230 NEXT Y 
240 HEXT X 
250 GOTO 90 

1000 PRINT RT 3.9^'«GEHERRTIOH*' 

1001 FOR TO 10 
1010 FOR V«i TO 10 
1015 L.ET R<X. YX'i<X/T'> 

1020 IF R<X..Y>=1 THEN PRINT RT X 
+4/r'+10. "0" 

1030 IF fiO<LY>«0 THEN PRINT RT X 
+4 j Y+10.i "#” 

1046 HEXT Y 
1050 HEXT X 
10^0 RETURN 


■G E NE R RT IO r>^i0 


OOO OO 
O O 

O OOO O 
O O OO 
OOO O 
OOO o 
O O OOO 
OOOO OOO 


■GENERRTIOh^il 


OO OO 
O 

OO OO O 
O O 

O O O OO 
o o o 
o 

O OOOO o 


BGENERRTXONB2 


O 

O O OO 

OOO 

OO o 
O O OOO 

OOOO 
o o o 
OO o 
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0GENERRT X0^4i|3 


O 

OOOOOO O 
O OOOO O 
OO O 
OO O O 
O O O 

ooo 


BGENERRTIONB4 
O OOO 

o o 

o o o 

O O ö 

o o o 
o 

ooo 


■GENERRT XOh4i5 

o 

O OO 
O O OO 
OO OO 
OO o o 
o 

OO o 
OO 


i^ENERRT IONB13 
D 

OOO 

OOOOO 

OO 

OO 

OO 

ooo 


■GENERRT 10h4ll4. 


OOO 

o o 


o o 


OO 


OO 


o 

o 

0 

0 


46 



Spiegel-Leben 


5 LET G=0 
7 RRND 

10 DIM 10.10> 

20 DIM B< 10.. 10 > 

30 rOR X=2 TO ^ 

40 FOR Y^2 TO 9 

50 IF RND>.45 THEN LET R':X.V>= 

1 

60 LET B>:X..V';'=R<X.Y> 

70 HEXT Y 
30 HEXT X; 

90 GOSUG 1000 
92 FRST 
95 LET G=G+1 
100 FOR X;=2 TO 9 
110 FÜR Y=^2 TO 9 
120 LET C=0 

130- IF fl<X--l.Y-l>-l THEH LET C* 
C+1 

140 IF R<X;>1. Y:j=1 THEN LET C=C+ 

1 

150 IF fl>:X~l.Y+l >-l THEN LET C* 
C+1 

160 IF R-:x;.Y'i: j-i theh let c-c+ 

1 

170 IF fi<X/v'+l>®l THEH LET C»C+ 

1 

180 IF R':x:+1..Y-1 >-l THEN LET C~ 
C+1 

190 IF R<X+1,.Y>=1 THEN LET CsC+ 

1 

200 IF Ri:X+l.Y-i-l >=1 THEN LET C= 
C+1 

210 IF Rf:X.Y>=l RND C<>3 RND C< 
>2 THEN LET B<X.Y>«0 
220 IF RO:.Y>»0 RND C=3 THEN LE 
T b<x..y;)=i 
230 HEXT Y 
248 HEXT X 
£50 GOTO 90 

1000 PRINT RT 3.9j"GENERRTION#” j 

1001 FOR X=1 TO 10 

1002 FOR! Y-1 TO 10 
1003--SLOW 

1015 LET R<X,. Y>=B<X,.Y:' 

1020 IF R<X..Y>=1 THEN PRINT RT X 
+4. Y+10.i "0" 

1025 IF fl<X:,,Y>-l THEN PRINT RT 1 
4-X.. i2-Y; ”Ü" 
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1030 IF l=l<X,Y>«0 THEH PRINT RT X 
+4.. Y+10.i 

1033 IF R<K/y>^0 THEN PRINT RT 1 

4-X. 12-Yj 

1040 HEXT Y 

1050 HEXT X 

1060 RETURN 
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Viererreihe 


Wie Sie am Computerausdruck sehea wird out einem lO x 
lO Brett gespielt. Sie und ein menschlicher Mitspieler geben 
abwechselnd eirx welche Reihe (A bis J) Sie nehmen wol¬ 
len, Nun erscheint cm der untersten freien Stelle dieser Reihe 
ein »X« oder ein O«. Das Ziel ist in beliebiger Richtung vier in 
eine Reihe zu bekommen. In diesem Musterspiel gewinnt X 
gerade mit einer schrägen Reihe, die bei C beginnt und bis 
F reicht. Dieses Programm benötigt mehr als IK. 


PLRYER 1 
■RBCDEFGHU 


X 
xo 
3XOXXXO 

■ooxoooxxox 

^eCDEFGHIÜ 


10 DIM 100!) 

20 FOR J-1 TO 2 

40 LET C=52*:CJ=1 J»=2> 

60 PRINT RT “•RBCDEFGHIJ” 
70 PRINT TRB 
80 FOR B=1 TO 100 
90 PRINT CHR$ 

100 IF 104:IHT CB/10)=B THEN PRI 
NT TRB Ti'W’i 
110 NEXT B 

120 PRINT RT 16.8; "RBCDEFGHI-J" 
130 PRINT RT 3.8;"SPIELER#";J 
140 INPUT 2$ 

145 IF 2«^"S" THEN stop 

150 LET ri=CODE Z«“37 

160 FOR B«ri TO ri+90 STEP 10 

173 IF R<B>=0 THEN HEXT B 

180 LET fl<B-10^=C 

190 NEXT J 

200 GOTO 20 
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-Zahlenrennen- 

Die Zahlen L 2 und 3 laufen um die Wette, Zeile 130 bemht 
daraul daß der ZX81 »ja« als 1 und »nein« als 0 bewertet 

5 LET D=30 
10 LET 
20 LET Ei=R 
30 LET C«fl 
40 LET K=150 
50 PRINT RT 2,f\j "1" 

60 PRINT RT 4.Bj"2" 

70 PRINT RT 6-<C,;"3" 

74 GOSÜB K 

75 PRINT RT 2. PN '■#" 

S0 LET R=^R+R.HD 

82 GOSUB K 
85 PRINT RT 4.B,: 

90 LET B=e+RHD 
100 PRINT RT 6.C:.; 

105 LET C=C+RHD 
110 GÜSUB K 
120 GOTO 50 

130 PRINT CR>C RHD R>B:)+2T(: B>R 
AND B>CH3^XC>R RND OB "ttGEWIN 
NT” 

140 STOP 

150 IF <R>C' OR B>D OR C>C>> THEH 
GOTO 130 
160 RETURN 


-Dämon- 

Dieses Programm erfordert einen ZX81 mit mindestens 4K 
und beruht teils auf den Bauern-Zügen beim Schach und 
teils auf dem Damespiel. 

Gespielt wird auf einem Raster von 6x6 Punkten. Bei 
Spielbeginn hat jeder sechs Figuren. Die »X« gehören Ih¬ 
nen und die »O« dem ZX81. 

ZX81 0 MENSCH 0 


. X 

. X 

. X 


X . 

X . 

X . 

P 


. 


c 



6 . 

u 

. o 

. o 


t=. 

o . 

o . 

o . 

i= 

1 s 

IHR 

3 4. 

7\ ii'VT 

5 ö 
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Sie ziehen nur in schräger Richtung (wie bei Dame), je¬ 
doch beliebig vorwärts oder rückwärts. Sie schlagen eine 
gegnerische Figur, indem Sie eine Figur darauisetzen, Sie¬ 
ger ist, wer zuerst vier gegnerische Figuren geschlagen 
hat. 

Der ZX81 zieht immer zuerst. Sie ziehen, indem Sie die 
Koordinaten (Buchstabe und Zahl) der Figur eingeben, 
mit der Sie ziehen wollen, dann die Koordinaten des Ziel- 
Feldes und anschließend NEWLINE. 

Sie werden sehen, daß das Raster in der ersten REM- 
Anweisung gespeichert ist und der Computer seine Ent¬ 
scheidungen trifft, indem er diese REM-Anweisung PEEKt 
(liest). Zu Beginn jedes neuen Spiels POKEn (schreiben) die 
Zeilen 21 bis 23 das Raster wieder in diese REM-Anweisung 
zurück. Sie können dieses Spiel ziemlich leicht für den 
ZX80 umsetzen, müssen aber zur Steuerung des Bild¬ 
schirms einige INPUT A$ und CLS hinzufügen. 


10 REM ... 

..0.0.00.0.0.123456 

20 REM .X.X.XX.X.X. 

..0.0.00.0.0.123456 

21 FOR K»1656£ TP 1659Q 

22 POKE <K“48:j.PEEK K 

23 HEXT K 

24 LET 

25 LET Z=U"513 

26 LET S:---e 

27 DIM B<4> 

28 LET B< 1 :J“5 

29 LET B<2>*7 

30 LET ß(3>«“5 

31 LET B<4:^=-7 

32 SLOW 

33 LET K«0 
35 GOSUB G8 
37 FRST 

40 GOTO 330 

6S PRINT RT 5.0;'■ZX81#"jH. "MEH 
SCH#";S 

69 PRINT 

70 FOR 0-1 TO 36 

71 PRINT CHR$ PEEK < 2-^C ; 

73 IF 64c<INT THEN PRI 

NT CHR* < C.''6-i-37 > 

75 NEXT C 

77 PRINT "123456" 

78 FOR H==l TO 30 
80 HEXT H 

90 RETURN 
120 GOSUB 63 
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125 SLOW 

130 PRINT "IHR ZUG?" 

132 INPUT fl* 

136 LET D«6!*:<C0DE fl*-: n-38 >+C0D 
E <R*<2>>-2S 

140 LET E^6N^<C0DE flS< 3 :)-3S >+COD 
E -:fl$<4:j>-28 

150 IF PEEK <E+2>ZZ THEN LET S 
=S+1 

155 POKE <D+Z>.27 
160 POKE <E+Z?.61 
170 GOSUB 68 
175 FAST 

180 IF S=4 THEN GOTO 410 
190 LET K*=0 
250 FOR F«1 TO 36 
260 FOR M==l TO 4 
270 IF PEEK f:F+Z>52 AND PEEK < 
f-*-2+b<m:5:i=61 then let n=^n+i 
275 IF PEEK < F^-Z >=^52 RND PEEK < 

f+ 2 +bc;h>:''=gi then goto 430 

298 HEXT M 
300 HEXT F 
330 LET f1--==l 

340 LET F=INT i:RND#36>+l 

342 LET K=K+2 

343 PRINT RT 0.0; K 


350 

IF 

PEEK 

F+Z >< 

>52 THEN 

GOTO 

340 






352 

IF 

RND>. 

.2 RHD 

M<3 THEN 

LET 

M=r4- 

INT 

RND 




355 

IF 

< F=6 

OR F=1 

S OR F=30> RN 


D Cr-K-! OR M=3) THEN GOTO 370 
357 IF <F«31 OR F==19 OR RH 


D ai=l OR ri®4^ THEN GOTO 370 
360 IF PEEK c;FH-Z+Bai) >=27 RHD P 
EEK c:F+2+24:Bai>><>Sl THEN GOTO 4 
30 

370 LET M=ri+1 
375 IF rl<5 THEN GOTO 355 
400 IF K<100 THEN- GOTO 330 
410 PRINT "SIE GEWINNEN###" 

420 STCiP 
430 SLOW 

435 POKE -IF+Z+ea-l)). 128 
437 GOSUB 68 

440 IF N=4 THEN GOTO 508 
460 POKE ':;F+Z>.27 
465 POKE c:F+Z+B':r‘l>>..52 
470 GOTO 120 

500 PRINT "ICH GEWINNE####" 
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-1- «X» ^k ^k ^k ^k 

Vf> 5|s y|s 3^ 3p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^P ^P ^p ^p 

Demonstrationen 
und Unterprogramme 

•J> ^1* «X» ^1» "J^ *1* ^k «X* »X* ^k ^k ^k ^k ^k ^k ^k ^k ^k 

3p 3p 3p ^p ^p ^p ^p ^p #p ^p ^P "p ^p ^p ♦p •p *p *p 


Hier finden Sie drei kurze Programme, die Sie einbauen 
könnea wenn Sie längere Programme schreiben. 

Dreiecke 

Geben Sie eine beliebige Zahl von 2 bis 15 ein und der 
ZX81 malt ein Dreieck mit dieser Basiszahl und zählt die 
Stellen innerhalb des Dreiecks. 

10 PRINT "BRSISSflHL" 

20 IHFUT B 
30 CLS 

40 PRINT "BRSIS#- j B. "SUMflE#" 

50 LET T=0 
60 LET S=0 
70 LET L=20 
80 LET T»T+B . 

90 FOR H=S TO S+e-*2'-2 STEP 2 
100 PRINT NT L.N;"0'’ 

110 HEXT H 

120 LET L»L-1 

130 LET B=B-1 

140 LET S-S+1 

150 IF B>0 THEH GOTO 80 

160 PRINT RT 0.22jT 


Geschofi 

Wenn Sie 0 eingeben, sehen Sie Ihr Geschoß auf das Ziel 
zukommen. Bestimmt können Sie um dieses Unterpro¬ 
gramm herum ein gutes Spiel aufbauen. 

1 PRINT RT 9.15i"^#^" jTRB 16; 

"X";TRB 15; "^#V' 

2 IF INK.EY@="0" THEN GOSUß 10 
4 GOTO 2 

10 FOR H=2 TO 21 

11 PLOT 10+N..N 

12 PLOT 55-N.N 

13 UNPLOT S+N.H-2 

14 UNPLOT 57-N.N-2 

16 HEXT N 

17 RETURN 
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stehende Sinuswelle 

Dieses Programm für den IK ZX81/ZX80 mit neuem ROM 
demonstriert auf eindrucksvolle Weise die graphischen 
Fähigkeiten Ihres Computers. Es zeichnet eine »stehende« 
Sinuswelle. 

1 FOR Xs0 TO 63 

2 LET Y«205t:SIN <X.^32?r.PI> 

3 IF Y~0 THEN GOTO 7 

4 FOR N»0 TO Y STEP SGH Y 

5 PLOT K.N+22 

6 HEXT H 

7 HEXT X 

3 PRtHT RT 10.0J”- 


—Wie lange lebe ich noch?— 

Dieses Programm stellt Ihnen verschiedene Fragen, rea¬ 
giert aut Ihre Antworten mit klugen Bemerkungen und 
teilt Ihnen dann mit wie lange Sie noch leben — stati¬ 
stisch gesehen. Das Ergebnis sollten Sie nicht zu ernst neh¬ 
men. 


10 lf:t 

20 LET HEU-"#“ 

30 RflNO 

40 PRIHT TRB < 5 >J "SCHFIUEH HIR 
riHL. NIE IHF^E" 

50 PRIHT TflE "LEBENSERHflRT 

UHG IST" 

60 PRIHT 

90 PRINT TRB C.5"ZUERST BITTE 
IHREH NfiMEH" 

100 IHPUT T$ 

110 CLS 
120 PRIHT 

140 PRINT "OK WIE LRUT 

ET IHR" 

150 PRINT "GEBURTS.JRHR? CRNTWOR 
T Z.EI. 1964>" 

160 IHPUT R 
170 GOSUB 2000 

130 PRINT " MREHNLICH -t 1 >0DER WE 
IBL ICH <2>T" 

190 INPÜT B 
200 GOSUe 2000 

210 PRINT "IN WELCHER BLTERSGRU 
PPE SIND SIE" 

215 PRIHT 
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ri20 PRINT "GEBEN SIFI EINEN BUCH 
STThBEN EIN" 

^!25 PRINT 

230 PRINT " 5 BIS 25 - R"."26 B 

IS 40 - BIS 50 -■ C"."51 B 

IS 60 •' D"."61 BIS 65 •- E".. "66 B 

IS 70 - F-"."7J. BIS 75 - G"." UEB 

240 INPUT fl» 

250 GOSUB 2000 

260 PRINT "IST/WURDE IHR VATER 
UEBER 70? 

270 IHPUT B» 

280 GOSUB 2000 

290 PRINT "IST/WURDE IHRE MUTTE - 
R UEBER 70? 

300 INPUT C» 

310 GOSUB 2000 

320 PRINT "SIND SIE 'v'ERHEIRRTET 
< J.'-N >?" 

330 INPUT D» 

340 GOSUB 2000 

350 PRINT TFIB U0;'>"WO NONNEN S 
IE?">...TflB 10; "A "• KLEINSTADT".T 
AB 10. "EJ - GROSSTADT" 

360 INF^UT E$ 

370 GOSUB 2000 

380 PRINT "NRPEN SIE IN LEBEN M 
EIST". "REICH <J> ODER ARM <N:)?" 
390 IHPUT F$ 

400 IF CODE <A$:j<40 THEH GOTO 4 
70 

410 GOSUB 2000 

420 PRINT "HABEN SIE UEBERGENIC 
HT CJ.'N,V' 

430 INPUT G» 

435 PRINT 

440 IF CODE f:G»:'<>4? THEN GOTO 
470 

450 PRINT TAB NENIG - 

fl" 

452 PRINT TAB C 8 >; "MITTLERES -- 
B" 

454 PRINT TAB (8;';"H0HES - ’C" 

460 INPUT H* 

470 GOSUB 2800 

4S0 PRINT "BENEGUNG..." 

435 PRINT 
490 PRINT 
500 PRINT 
510 PRINT 

520 PRINT "NIEVIEL BENEGUNG HflB 
EN SIE?" 

521 PRINT 
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522 PRINT TRB 8;"R - SEHR WENIG 


524 PRINT TRB 8;"B - MITTEL" 

526 PRINT TRB Q>"C - VIEL" 

530 INPUT .1$ 

540 GOSUB 2000 

550 PRINT "SIND SIE GEWOEHNLICH 


551 PRINT 

552 PRINT TRB 5;"R - GUTMUETIG 
UND GELRSSEN" 

554 PRINT TRB 5;"B - RNGESPRNHT 
UND HERVOES" 

556 PRINT TRB 5;"C - DfiZWISCHEN 


570 INPUT 
580 GOSUE 
585 PRINT 
590 PRINT 
592 PRINT 
600 PRINT 
610 PRINT 
SIE= " 


K$ 

2000 
TRB 5j 

TRB 5;" TRINKEN " 

"WIE HREUFIG TRINKEN 


611 PRINT TRB 5^"R - KRUM ODER 
NIE" 

612 PRINT TRB 5;"B - GELEGEHTLI 

613 PRINT TRB 5;"C ~ REGELMRESS 
IG aiRESSIO" 

614 PRINT TRB 5;"D - REGELMRESS 
IG CVIELV 

615 PRINT TRB 5.^ "E - REGELMRESS 
IG <S. VIEL?” 

620 INPUT L$ 

630 GOSUB 2000 

640 PRINT " RftÜCHEH SIET? <J ODE 
R N>" ~ 

650 IHPUT m 
660 CLS 

670 IF CODE <M$><>47 THEN GOTO 
730 

675 PRINT 

676 PRINT 

677 PRINT 

680 PRINT " IQ - 20 ZIGARETTEN 
PRO TRG - R" 

690 PRINT ” 20 30 ZIGfIRETTEH 

PRO TAG - B" 

700 pRiHt'TRB 5;"UEBER 30 PRO T 

RG#######-- C" - 

710 PRINT TRB 5;"PFEIFE ODER ZI 
GRRRE?###- D" 

720 INPUT N* 

730 GOSUB 2000 
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740 PRINT " GEHEN SIE MINDERSTE 
NS 2WEIMRL" 

750 PRINT " PRO JAHR ZUM ZfiHNPF? 
ZT <J/N>" 

755 INPUT P31 
760 GOSUB 2000 

770 PRINT "LASSEN SIE SICH REGE 
LMflESSIG'*. "RERZLICH UNTERSUCHEN 
< J/N>" 

700 INPUT Q$ 

730 GOSUB 2000 

300 PRINT "SIND SIE OFT KRANK? 

c: 

010 INPUT R« 

S20 LET L=48:*:<;fl<1911 >+52i|^<R>l3i 
0 AND f-l<1921 >+53:t;’:;A>1920 AND fl< t 
931 >+61:t:':: A>1930 AND R< lS'4n+ö5:*f: 
fl>1940 AND fl<1951>+67#<A>1950 RH 
D n<l961H60#<R>1960> 

830 IF B“2 THEN LET L«51#<L==48> 
+56SK L--52 L--=5S' >+67tX L=G1 H7 

Laos :j+- 74:+K L=67 >+75*K L=6e > 

S35 LET L4«1990-A 
840 LET V=CODE CR®>-37 
850 LET L1=3*CV=1>+5*(;V=3 OR V= 
S V=4>+ST-C V=5 >+10?;C V=6 >+12T:C 
V=7> 

860 LET L«L+L1 

370 LET L“L+<CODE <B$>^47> 

880 LET L*L+CCODE CC$>=47> 

890 LET L=--L+3'« CODE CD®>=47> 

900 LET L=L+4:+:CC0DE C E$ >=38 >-2-+: 
CCODE <E$>=39;> 

910 LET L=L“3'4:C CODE •;F$>=47> 

920 LET L=L-CCODE C H* >=3S :>--3*C C 
ODE c:H$>=39>-5:t:CC0DE CH®>=40) 

930 LET L=L+3:<fCC0DE C J® >=39 >+5-*: 
CCODE CJ$>=40;> 

940 LET L=L+3:4;CC0DE C K$ >=38 >-2:|; 
CCODE CK®>=39> 

950 LET L=L+3iitC CODE CL®>=40>-54: 
C CODE C L® >=41 >'-18TC CODE C L® >=42 > 
960 LET L=L-3;^;C CODE CN®>=33>-5S: 
CCODE CN$>=39>-10:*:CCODE CN®>=40> 
-2*CC0DE CN®>=41> 

965 IF L<L4 THEN LET L=L4 
970 IF F$=".J'‘ THEN LET L=L+1 
980 IF C:!®="J" THEN LET L=L+1 
990 IF R®="J" THEN LET L=L~1 
1000 CLS 

1010 FÜR 2=1 TO 5 
1020 PRINT 
1030 HEXT Z 

1040 PRINT TRB 5;" STATISTISCH GE 
SEHEN" 



1050 PRINT 

1050 PRINT TRB < S T$; "IST "jL 
1070 PRINT 

10G0 PRINT TRB 4;"IHR VORRUSSICH 
TLICHES" 

10S5 PRINT .. " STERBERLTER" 

1090 PRINT 
1100 PRINT 
1110 PRINT 

1999 STOP 

2000 CLS 

2010 FCiR Z^l TD INT CRNr;N:8:' 

2020 PRINT 
2030 HEXT Z 
£040 GOSUB 3000 
2070 RETURN 

3000 LET 2=INT <RHD*10) 

3005 PRINT TRB 
3010 GOSUB 3000+20TZ 
3015 RETURN 
3020 PRINT "RHR" 

3030 RETURN 
3040 PRINT "SOSO" 

3050 RETURN 
3060 PRINT "GUT" 

3070 RETURN 
3080 PRINT "OK" 

3090 RETURN 

3100 PRINT "3CH0EN..#";T$ 

3110 RETURN 

3120 PRINT "DRNKESCHDEN..#"jT$; 
#30..." 


3130 RETURN 

3140 PRINT "NICHT MEHR BESONDERS 
LflHGE HIN" 

3150 RETURN 

3160 PRINT "MMM..." 

3170 RETURN 
31SÖ PRINT "DANKE" 

3190 RETURN 

3200 PRINT "ALSO DANN" 
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-Russisches Roulette- 

Ein einfaches kleines Programm für den IK ZX81/ZX80 mit 
neuem ROM, bei dem Sie zehnmal abdrucken müssen 
(indem Sie NEV7LINE drücken), um zu überleben. 


1 LE- Q=10 
5 LET r-1«2 
10 FÜR R=D/C! TO Q 
20 INPUT F!$ 

30 CLS 

35 GOSUB 150 

40 IF RNLX.IS TUEN GOTO 70 
50 F-'RINT R. " CLICK. ■ . " 

60 HEKT fl 

65 IF RND:>==^. 16 THEM GOTO 9Q 
70 PRINT F=IT Q.Q/T1.i "TPENGTGESTD 
RBDjl" 

75 PFUHT RT Q. Q^'TI; "IPEHGi^ESTO 
R_BENr' 

80 GOTO 70 

90 PRINT RT Q,.Q.-^ri; "SIE HflFSEM U 
EBEPLEBT " 

110 PRINT RT Q.Q.-Ül,: " SIE HABEN U 
EBERLEBT" 

130 GOTO 90 
150 FOR T=Cs!.^Q TO Q 
160 PRIHT RT H+rüQ+M.i "»ÜCHRH >1 
R+156> 

170 PRIHT RT MH-rüQ+M; "Jg".. "#■' 

175 T 

180 RETURN 


-^upiterlandung- 

Vergessen Sie Mondlandungen. Diesmal landen Sie auf 
dem Jupiter, Wenn Sie mit Ihrem taumelnden Raumschiff 
ein paarmal sicher gelandet sind, können Sie zusätzliche 
Schwierigkeiten einbauen, z.B. Ihren Treibstoff reduzieren 
(Zeile 330) oder die Anfangsgeschwindigkeit verändern 
(Zeile 340). Dieses Programm erfordert mehr als IK. 


10 GÜSUB 320 

42 LET M=U+RND:t:5 

43 PRINT RT VUQj "###" 
45 PRINT RT 16-H.-100,. N.i 
50 LET Q=M 

60 LET V=Ü6--H.Ü00 
100 LET J=RHD 
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110 IF J<.5 THEH PRINT " Ä ' 

120 IF .J>.5 THEN PRINT "V" 

160 PRINT RT 

m WLT^ fm" 

165 PRINT ''HOEHE#####TREieST.#G 
ESCHN." 

16? PRINT INT H; " ###'■; TRB 10jIH 
T F;'’###"jTRB 19jIHT 
168 PRINT RT 20.5."SCHUB?”^ 

170 INPUT T 

175 PRINT T;”###"; 

180 IF F-T<1 THEN LET T=0 
190 LET S=S-hINT <S^'10>+15-T 
200 LET H=H-S 

210 IF H>1600 THEN GOTO 290 
220 LET F=F-flBS ^T/2) 

230 IF H>0 THEN GOTO 20 
240 IF S>10 THEN GOTO 270 
250 PRINT "GLRTTE LRHDUNG#” .aHT 
FS:23 j "#PUNKTE’';W 
270 PRINT "BRUCHLRNDUNG. WOBEI# 
"j INT '.:S:t:RND#7>J "ttHETER''.- "TIEFER 
KRRTER ENTSTRND''jW 
300 CLS 

305 PRINT RBS S;"ttPLUCHTGESCHWI 
NC-IGKEIT” 

310 GOTO 305 
320 LET Hsl400+RND#:100 
330 LET F*=90+RNDJt:?5 
340 LET S-10+RHCn^l0 

345 LET V=S 

346 LET Q=S 
350 RETURN 


-Minivades- 

Die Minivades marschieren von rechts nach links. Sie 
können mit »5« und »8« Ihre Kanone nach rechts und links 
verschieben und mit »0« feuern. Unverändert läuft dieses 
Programm auf dem ZX80 mit neuem ROM und dem IK 
2X81. 

10 LET S=ü 
20 LET P'-^ie 
25 FOR L«1 TO 4 

30 LET R*=''V V V V V V V 
V V '■ 

40 LET F=0 

50 PRINT RT L.0>R$,iRT 7 .Pj''$'' 

60 IF F THEN GOTO 120 
70 PRUSE 20 
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$0 IF INKEY$---="0'' THEN GOSUB 23 


0 

90 LET PsP+S*''IHKEV$="8" >"2*a 
HKEY$=’'5" > 

100 LE'* 2 TO 31>+R3i<;i) 

105 CLS 

10G PRIHT S 

10? LET S=flBS <S-i:- 

110 GOTO 50 

120 LET Y=Y-1 

140 IF Y=L THEH GOTO 170 

150 PRINT RT V.. ■■ 

160 GOTO 70 

170 IF THEH GOTO 40 

100 LET n$<>=:>'=”#'■ 

190 LET S^S+10 

210 IF RHD>.7 THEH GOTO 270 

220 GOTO 40 

230 LET F:=l 

240 LET Y=6 

250 LET X=^P 

260 RETURN 

276 LET S«S+50 

280 NEXT L 


-Schatzsuche- 

Für dieses ziemlich verrückte Abenteueispiel brauchen 
Sie einen ZX81 mit 16K oder einen ZX80 mit neuem ROM, 
Sie können die PAUSE-Zeilen durch FOR/NEXT-Schleiien 
ersetzen, wenn es auf dem ZX81 glatter laufen soll. 

Mit zwei Begleitern Ihrer Wahl erforschen Sie ein Höhlen¬ 
labyrinth in Penzance auf der Suche nach einem Schatz. 
Eine Unzahl von Hindernissen stellt sich Ihnen in den 
Weg, aber wenn Sie tapfer sind, sehen Sie das Tageslicht 
wieder, 

1 REM SCHATZSUCHE 

2 REiM 

3 REM ERSETZEN SIE PAUSE- 

4 REM ZEILEN DURCH SCHLEIFEN 

5 REM DAMIT ES AUF DEM ZX81 
G REM GLATTER LREUFT 

7 f?EM 
S SLOW 
10 RAND 

100 GOSUB 9500 

300 REM ZUSTAND DER GRUPPE 

305 CLS 

310 IF CAVE<1 THEN LET CAVE--=1 
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320 IF CRSH<1 TUEN LET CF|SH=0 
330 ;[F S<1 THEN LET 
340 IF P<1 THEH LET 
3S0 IF C:rve>3 THEN GOTO 70©0 
1100 PRINT "SIE SIND IN HÜEHLE N 
R.#" .1 CHRHi ( ISEh CRVE;:' 

1120 IF CRSH>0 THEH PRINT "IHRE 
GRUPPE HMT EIHEf’^ SCHRT2 IM WERT 
VON DM#";CRSHi”#ßEI SICH" 

1140 PRINT RS;”#UND#"j B$;"#SIND 
BEI IHNEN" 

11.50 PRINT "IHRE GESRNTE KRRFT 8 
ETRfiEGT#"jS 

1160 PRINT "IHRE GESRMTE ZRÜPERK 

rurr i FTRpr^rrs T'- 

"15^ FLN HOEHLE 

3 II 1 r 1 rU . "PUNKTE ^ #" > 10^f:CRSH+2: 
11 ^ ri |: r 

^.1 rniiT TREi ^■" —»ff - 
3130 THEN PRINT TfHB 

X; "l 4#W##ä| •' 

3150 PRINT TflB < Ö iU'f ###'3 CHRS ( 
CflVE-HSoXi " 

3170 IF D'fi-"E" THEN F'RINT TFlB 8 

> ’■ 

3130 IF DS==^"N" THEN P'RIHT TflB (8 
Xi 

3200 IF’ DEti<.>’’W" AND DT<>"£" THEH 
PRINT TflB < 

3210 PRINT TflB < S >.i" 
3220 PRINT TflB ( 8 :x "1 ##»#####1 " 

3 0 ir CS^«"N" THEN PRINT TflB OS 

: '1 " 

31110 ff^lNT WI1WELCHEP flUSGflNG <N 
S.. 0.. N X?" 

‘'■l'-'Q II-F-^nT IS 
, .3 JE THEN STOP 

5. UL1 FEr rrfl'EN 
-L 

I I i"i -LiF Ul ' 

5. “1 I^ F' . THEN GOSUB 5513 
j. If Dil IF EM GOSUB 5780 
j. 41 ir [ . nilF D<15 THEN G03ÜP 

- f-iii- UD 

'2 : fFINI '.flCHTUNG-—" 

f HH r m 

■^r4t I IiitI hin 

PI f I INT 3F IHNEN IST EINE " 
RUHE" 

'='31 F I 0" JF rrni 

5515 PRINT "SIE ENTHflELT#”. D-'O.i " 
#KG EDELSTEINE" 
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S£U6"-FRi;NT "IHRE VERRUEGBFIRE KRR 
RT",. "BETRREGT#",iS 
fJ5i7 PRINT "CSIE KOEiUCN riFiV„#". 
INT "#f1ITHEHMENy' 

5520 PRINT "NIEVIEL NEHMEN SIE?" 

5521 IHPUT DD 

5522 IF Cf C - ir DD>INT a-..-'4> T 

l-fEN GOTO 5521 

5523 LET . DC 

5524 LET LHJI i H H+2.5:iC-'D 
5522 RETURN 

5540 PRINT "VOR IHNEN STEMT DFR" 
5542 PRINT "«ttGEIST DE3 LONd JÜH 
N SILVER.„. " 

5544 PRINT "Nir:;D ER IHNEN ETNHS 
TUN?" 

5545 FRUSE 100 
5547 GOSUB S000 

5549 IF D>S THEH PRINT NJ|-l..ER 

SCHLl-lEGT ZU_" 

5550 IF D>3 THEN PRINT ":JND#"jR;i5 
,i"#IST VERWUNDET" 

5551-- IF D>8 THEN LET G^-^S-Z 

5552 IF D>1G THEN LET P^.-p-l 

5553 IF D-^S« THEN PRINT "NEIN. ER 
UENCt-ET SICH WEG#’’.. "SIE KOEHNEN 

WEITER" 

5554 IF D>12 THEH LET CRVE^^CRVE- 

1 

5555 IF D<9 THEN LET CflVE=CF!VE+1 

5556 RETURN 

5560 PRINT "RHR. EINE SCHRTZKRRT 
E-.IST SIE ZU EHTZIFFERi-f NIF: ' 
WERDEN SEHEN" 

5562 GOSUB 8000 
5564 PRUSE 100 

5566 IF D<n THEH LET S-n:;-IHT <D 

5567 IF D<il THEH PRINT "NEIN,. S 

IE IST VERBLRSST" " 

5563 IF D>10 THEN PR IN': 

UND SIE ZEIGT IHNEN",."! 

DDUrSLOHEIJ IN WERT",. "Vül 

FINDEN" 

5569 IF D>10 THEN LET i 
10:+:D.''2 

5570 IF D>10 THEN LET CiL I E 
1 

5572 RETURN 

5500 PRINT "VERDPiMMT. EIN SRNDTR 
OLL"-. "HRT er'S isT ENTDECKT?" 

5582 GOSUB 8000 
5503 PRUSE 200 

5584 IF .D<? THEN PRINT "CLI^ECF G 



EHRBT.. ER GEHT HEG" 

!:i505 IF D>e THEN PRINT ''EHTSET2L 
ICH,. ER GREIFT 

5586 IF D>6 THEN LET CRSH^^CRSH-,1 
mX' 

5597 IF CRSH>0 RND 0>e THEN PR IN 
T "UND STIEHLT SMRRRGDE IM WERT 
VON#"; 10^:D 

556? IF D<7 THEH LET CRVE=CRVE-M 
5590 LET f:|S;:="ßRTTEPED 
5595 RETURN 

5600 PRINT "FINDEN SIE EINE FÜRS 
CHE r-füS'L "SELTSfiMEM. TRUEBEN GLR 
SS. . . "WRS IST DR DRIH" 

5602 GOSnjB £-!000 

5603 PHU3E i5^D 

5604 IF D<? THEN PRINT "EIN GEIS 
T., DER IHNEN#" ; 5?t:Dj "#DM gibt'U h-lD 

IHRE KRAFT UN# " D; "#ERHOEHT" 

5605 IF D':7 THEH LET CRSH=CRSH^5 
tD 

5606 IF D<7 THEN LET S=S+D 

5607 IF D>6 THEN PRINT "NICHTS R 
LS SCHRLER RRUCH " 

5608 IF D<7 THEH LET CRVE«Cf-IVE-^-l 

5609 PETURIT 

5620 PRINT "EIN wILDER WOLF WAR 
SEIT JRHREN IN DIESER HOEHLE GEF 
RNGEH. ER REISST SICH LOS... I 
HRE GRUPPE FLUECHTET.WERDEN SIE 
ES SCHAFFEN" 

5622 CÖSUÜI 8000 

5623 PRUSE 250 

5624 IF D<12 THEN PRINT "JR, SIE 
ENTKOMMEN" 

5625 IF Das THEN LET C:RVE=CRVE+ 

5626 IF D>11 THEN PRINT "ENTSETZ 
LICH., EP HRT JEMANDEN''."ERWISCHT 

UND 'VERWUNDET#" 

5627 IF D>11 THEN LET B!5«"VeRWÜW 
Dfc. (#" + 

5628 IF D>U THEN LET S=INT < S-''2 

5629 RETURN 

5640 PRINT "DIE HOEHLE IST 'v'OLLE 
R GIFTGAS...RENNEN SIE UM IHR LE 
BEN '• 

5641 GOSUB S000 

5642 LET CFlVE=H3RVE-a 

5643 LET S~S-IHT <DK5> 

5650 RETURN 

5700 PRINT "IN DER HOEHLE SIND#" 
5782 GOSUB 8008 




5784 

PRINT 

Dh- 1. "ttSFlECKE. . . "NEU 

CHEN 

WRGEN 

SIE ZU OEFFNEH?" 

o78G 

IHPUT 

K 

5787 

PRUSE 

150 

5733 

GOSUB 

8000 

37^39 

IF" D>1 

2 THEIN GOTO 5806 

5790 

PRINT 

"ZUM VERZWEIFELN.. HUR 

SAND" 


5792 

IF D<4 

THEH PF:INT . "UND SPI 

NHEH' 



5793 

LET 

S--2 

5797 

fFlETURH 

5306 

PRINT 

"SIE HFiBEH GüJECK" 

5305 

IF D>1 

6 THEH F='PIHT "DIRMRNT 

EN UND RUBI 

HE" 

5806 

IF D<i 

7 THEH F'FUNT "SILBER 

GOLD 

UND ED 

ELSTEINE" 

mrw 

■'GOSUB 

8000 

SRI? 

LET CR 

SH"Cfi3H+7. 5#:D 

5313 

LET 8== 

S•^•l 

5314 

LET P:= 

P+1 

5320 

LET CR 

VE^-CRVE-i-l 

5900 

RETURN 


7000 

PRINT 

"######GRRTULIERE#" 

7010 

PRINT 


7020 

PRINT 

"SIE. "jR$j’' UND "jBS; 

7-030 

PRINT 

"KRMEN WÜHLBEHFiLTEN R 

US DEM" 


7040 

PR I NT 

TR0 rSXi "HOEHLENLRB'-r'R 

IN TH' 



7050 

F^'RIHT 


V-'Ü60 

PRINT 

"SIE HREEN EINEN SCHR 

TZ '-.^ON". "DM#^.:CRSH 


7Q7Q PRIHT 
P08e PRIHT 

■'090 PRINT "####UHD ERREICHTEN#" 
ie:T:CfiSH+20TS+30:+:P; ”#PUHKTE" 

7100 PRINT 

n05 FOR R=1 TO 6 

7110 PRINT rrfl 

7120 PRUSE 30 
7130 HEXT R 

7999 STOP 

8000 REM ZUFRLLSZRHLEN 
8010 LET D~IHT (RND#:16>+1 
8620 RETURN 

8200 REM BEGLEITERNRHL 
3210 CLS 
3220 GOSUB 3000 
3230 LET CflSH=39.5S:D 
3240 PRINT "WREHLEN SIE JETZT IH 
RE BEGLEITERFlitlR 6lE feRPÖRsCHUNfi 
DER HOEHLEN " 
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82 5W 

PRINT 



3255 

FÜR H-- 

1 Tü 2 


82.56 

IF N=:2 

THEN CLS 


8260 

FORINT 

"SIE HRBEN 

DM#"jCRSH 

8270 

PRINT 



8280 

PRINT 

"SIE F(OEHMEN .JEDEN VO 

N dif: 

FSEH'N " 

RNHEUERN" 


3290 

PRINT 



8300 

RR .TNT 

''###NRME 

LOHN KRR 

FT 

ZRUBER: 

" 


8310 

f'RINT 

TFIB 12; "DM' 


8320 

PRINT 

"1^ MORGRL 

100 12 

8330 

0 " 

F-RINT 

"2^ MERLIN 

47 2 

3340 

1W " 
FN^RINT 

"3^ MURMEL 

83 6 

3350 

PRINT 

"4^ MRCKTO 

90 9 

8-'':F0 

RRIHT 

"5: HIHMUK 

64 2 


’n Ff lilT 

.. II rriMT ";W 

.. TMrUT G<W> 

n'i I ii'UB G580+10:1^G(U) 

4jM HEkT N 
■■4L RETURN 
4J'i STOP 

^iu LET CRSf4:-i::rHSH'-10© 

LET S-S-Ki.2 

' IF \^L1 THEN LET R$-"MÜRGflL’' 
IF U-=2 THEH LET B?-=^"riDRGRL’' 

1 ^ r L njRH 

^ i IF U^-1 TUEN LET i-Uti^’"MEF?LIM’' 
^ 1 LCr CFiSFT=:C:RSf-!'-47 

'■ LET S=^S+2 
LfT 

■“ F IF Lk2 THEN LET BeF^=="MERLIN" 
^ f E. T RN 

' 11 IF !J=4 THEN LET HEt:-"MURriEIL" 
■^■'1 LET C:RSf-NM::f:!SIH-S3 
LET S--S4G 
LET 

^ 4 IF THEf-F LET D$="MUF::MEL" 

f^ETURN 

0U40 Al- THEN LET R!ji=^''MRCKTO" 

0541 LET CRSFH-^CRSH.90 

3542 LET S=^Si-9 
3343 LET P=F:'-k3 

3544 IF I.J~2 THEH LET B5S^=^^"MRCKTD’' 
3547 RETURN 

355Ö IF M=-i THEN LET R$-=’'MIHMUK'' 
3331 LET r:HSH^CfTSH'-64 
3552 LET S^=S-v3 
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8553 LET P^P-iS 

8554 IF THEW LET ET^^^'TIIMMUK" 
3557 RETURN 

9483 STOP 

9500 REM VRRIRBELH 
9510 DIM GCE:) 

9540 LET 
9560 LET P~0 
9570 LET -11 
9610 LET Cfl.N=^n 
96'2e LET Cm C 1 
9890 GDSUL ^ uu 
9900 RETURN 


-Simon- 

Bei diesem Programm für den ZX81 mit IK sollen Sie die 
vom Computer gewählte Zahlenlolge wiederholen. Es 
sind Zahlen von eins bis vier, deren Stellung — wie Sie 
beim Spielen sehen werden — zu der Zahl in Beziehung 
steht wodurch man sich die Reihenfolge leichter merken 
kann. 

Bei Spielbeginn erscheint eine einzelne Zahl und ver¬ 
löscht wieder. Drücken Sie einfach die gleiche Zahl auf 
dem Tastenfeld, Die Zahl erscheint wieder, verlöscht, und 
eine weitere Zahl erscheint. Sie sollen nun beide Zahlen 
in der richtigen Reihenfolge drücken Und so weiter, 
Wenn Sie sieben Zahlen richtig wiederholen haben Sie. 
gewonnen, Andernfalls stoppt das Programm und zeigt 
Ihr Ergebnis an In diesem Programm finden sich einige 
interessante Techniken zur Einsparung von Speicherplatz. 

5 LET R$^”” 

10 LET N.^7 
. 20 LET 

30 FOR R-Z TO M 

40 LET REEi-=R?R<-STREH ''INT i;:rnDT4;' 

+Z 

50 NEXT R 
60 LET 

70 FOR Q:==Z TO 

75 LET L--41:-:: CODE R®'; Q) *-29> 

80 PRINT RT LTliflEÜCQ.^ 

90 FOR J==Z TO 20-4t 
100 MENT .J 

102 PRINT RT L..Mj'«" 

J.03 LET K=^RND:f:RND 
105 CLS 
110 NEXT Q 
120 FÜR TO X 
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122 IF INKEY^O"" TUEN GOTO 122 

124 IF IMKEY!J:="" THEH GOTO 124 

125 CLS 

138 PP INT PiT 4?t:'::C0DE INKEYS-lfl^ 
INKEY$ 

140 IF CODE IHKEY$<><C0D€ (.m<B 

yyy then goto 300 
150 ment B 

M 155 IF THEN PRIHT " BRRVO SI 
E HRBEH ALLE GENUSST" ; C: 

160 L^T N=X+Z 
162 CLS ■ 

165 FOR l-J=Z TO M-Hi1 

166 HEXT W 
170 GOTO 70 

300 PRIHT "SIE SCHAFFTEN#".iX-Z 


-Großmeister- 

Die folgenden fünf Programme führen die Erzeugung von 
Mustern auf dem ZX81 vor, Alle außer SCHNEEFLOCKE pas¬ 
sen in IK. 


-Perpetua- 

Dieses Programm wählt aus einer Zeichenfolge (A$, in Zel¬ 
le 10 zugeordnet) Graphik-Zeichen und Leerzeichen aus 
und druckt sie mit PRINT AT in einer regelmäßigen und 
ansprechenden Art. 



10'"LET n$="l 


20 LET B$=A*<IHT <RHD#:23>-*-1 > 
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30 LET R=*P:ND5ic],5 
40 LET 
50 LET C=a5 
60 LET D===31 
70 PRINT RT 
80 PRINT RT C--R.B.iBEti 
?0 PRINT RT C-R.D-BjBT 
100 PRINT RT R>D-B,iB!f 
110 F^UH 


-Schneeflocke- 

Dieses Programm erzeugt mit PLOT und UNPLOT ein regel¬ 
mäßiges Muster innerhalb eines Rahmens. Es benötigt 
mehr als IK, 

1 GOSUB S00 
5 RRNB 

10 LET fl:^00:<^RHD+l 
20 LET ß=^^4Q*R!ND-i-l 
30- IF RHD>.5 TUEN GOTO 120 
50 PLOT R..8 
05 PLOT R,.42-B 
70 PLÜT 04-R,.B 
90 PLOT 64~R.42-'e 
110 GOTO 10 
120 UNPLOT R.B 
140 UHPLOT FL. 42-'B 
160 UNPLOT 64“R.E=i 
180 UNPLOT S4-R„42~-B 
200 GOTO 10 
500 FOR TO 42 
520 PLOT 2..J 
525 PLOT l.J 
530 PLO^ 62..43-.J 

550 NENT j" 

588 PLOT .J..0 
-505 PLOT J. 1 
590 PLOT 63-J..42 
595 PLOT 63-J.41 
610 MENT J 
615 PLOT 63 ..0 
620 RETURN 
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-Erbsen entschoten- 

Hier wird PLOT dazu verwendet, ein unregelmäßiges Mu¬ 
ster zu erzeugen — wie der Probelaul zeigt. Die Zeilen LET 
K=RND*RND wurden eingefügt, um den Ablauf zu ver¬ 
langsamen. Lassen Sie sie ja weg, wenn Sie ungeduldig 
sind. 

31 LET 

32 LET D=-40 
■35 LET 

40 LET B==DTF;ND 
SO LET I- F IltUFHI 
60 PLOT R..B 
70 l C r i ri IL Ur MC 
30 FLJT M C l 
30 ir FMC' FUC TMEN RUH 
100 PLOT C--R.ß 
110 LfT I rUC MTHL 
120 TLiiT I H C L 
130 LET L F..NC..1 M .MC 
135 RUN 
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Malerei 


Dieses Programm benutzt PRINT AT, druckt aber paarwei¬ 
se,- d.h. über- und untereinander (wenn Sie es lauten las¬ 
sen, sehen Sie, was gemeint ist). B$ in Zeile 2 0 ist ein inver¬ 
ses Leerzeichen, ein Leerzeichen und ein inverses A. 


20 

LET B$ BW : 

:INT <RHD: 

30 

LET H 

FlJi 



^10 

LET 

TNC 

1 i 


50 

LET < 

1 1 



60 

LET L 

1 



re 

PRINT 

RT 

F l 

; E$ 

75 

PRINT 

RT 

FiMI 

Fl E IT 

30 

PRINT 

FiT 

L n 

L C'1 

S5 

PRINT 

RT 

U-H- 

ii r LTi 

90 

PRINT 

RT 

C--R 

[ r r F. 

95 

PRINT 

FT 

C-R- 

+ N Ft L L 1 

im 

PRINT 

FT 

II c 

r .E-Ti 

105 

PRINT 

RT 

H-+H 

II r . T. 


110 F?UN 


Radarschirm 


Radarschirm basiert aut dem BUTTERFLY-Programm aus 
Tim Hartnells Buch »Entdecken Sie die unendlichen 
Dimensionen des ZX81« und erzeugt dos unten abgebil¬ 
dete Muster, völlig ausgewogen, aber ohne UNPLOT, so- 
daß schließlich der Bildschirm völlig schwarz wird. 


A. A ^ 5.-.- 
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30 LET R=RND:t:60 
40 LET B^=RND#40 
50 LET C~60 
60 LET D=40 
70 PLOT n.E 
80 PLOT C-fi.B 
90 PLOT C-P..D-B 
100 PLOT P.D-B 
110 RUN 


-Krümelmonster- 

Das Krümelmonster erscheint willkürlich aut den Zahlen 
eins bis tünt. Wenn Sie dieselbe Nummer drücken, ehe es 
verschwindet, zerfällt es in ein Schachbrettmuster, und Ih¬ 
re Punktzahl wächst. Pro Rundp taucht das Krümelmon¬ 
ster zwanzigmal out. Ein gutes Ergebnis liegt über 190. 
Dieses Programm benötigt IK out einem ZX80 mit neuem 
ROM oder einem ZX81 und muß im FAST-Modus laufen. 


10 DIN _ 

28 LET R*< 1,. 1 JHk" 

30 LET flsc 

40 LET flitit:2.. 1. ’l ir' 

50 LET R*c:2,2;-'-" TT ” 

60 PRINT RT 4.0; 

70 LET S~0 
80 FÜR R^0 TO 19 
90 PRINT RT 5.0;G 
100 LET T-^INT <RHDT2>H 
110 LET P»!NT ':RHD?!<5) 

120 PRINT RT 0.P:1cE;;R$(;t,. 1 > 

130 PRINT TflS PT5;R!f>:T..2) 

140 PRUSE 120-RT5 
150 IF INKEV$<>GTF:T THEN 

GOTO 2-00 
160 LET S==S-t-TT10 
170 PRINT RT 

130 PRINT TRB PT5j "STAV 
190 PRUSE 20 

2G0 PRINT RT 8. PT5.■ 

210 PRINT TRS P;t:5; 

220 NEXT R 
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-Bowling- 

Mit diesem Programm können Sie (gewissermaßen) einer 
Bowlingbahn mit lO Kegeln Konkurrenz machen, Es ist für 
den ZX81 mit mehr als IK Speicher geschrieben,- wenn Sie 
es für den ZX80 umsetzen, paßt es in IK. Sie werfen die 
BowlingkugeL indem Sie NEWLINE drücken. Es gibt zehn 
Durchgänge pro Spiel und zwei Würfel pro Durchgang. 
Sie erhalten 15 Punkte, wenn Sie alle zehn Kegel mit zwei 
Kugeln umwerfen, und 30 Punkte, wenn Sie dasselbe mit 
der ersten Kugel schaffen. Das Programm gibt den jeweili¬ 
gen Punktrekord an. 

10 DIM RO0:) 

20 LET Y==0 
30 LET 

40 FÜR B=U TO 10 
50 FOP TO 2 

60 PRIHT flT 

70 PPIHT ''DURCHGflHG#%ß.. "NURF# 

'',CHRFti CE-i-156::' 

80 LET 2^0 
30 FÜR C=-l TO 10 
100 IF THEN GOTO 120 
110 LET R(C)-52 

120 IF Fl<C::’==^52 RHD RHD>.5 THEiN 
LET no::>=61 

130 IF TUEN LET 

140 HEXT C 

150 PRINT CHR® (R-r 10 
R® <R'::3;lu 
".iCHR® CR'r?)::' 

160 PRINT -1 Rt! 6 

+»’LiCHR® (Rf:5::'>i < fl< 4 > ) 

170 PRIHT "#^-M#";CHR® 

180 PRIHT "#l#?t;-tt*#’'.;CHR® 

190 PRINT ^ 

200 PRINT 

210 PRINT "PUNKTE BEI DIESEM DU 
RCHGRNG#".Z 

220 IF E==l RHD 2^=^ 19 THEN GOTO 3 
70 

238 IF Z>9 THEN LET 2^15 
240 IF E^-^-2 TNEN LET 8==S>Z 
250 PRINT "PUNKTE BISHER#" 

260 INPUT U® 

2S0 HEXT E 
290 NEXT B 

300 PRINT "PUNKTE BEI DIESEM DU 
RCHGRNG#”.. S 

310 IF SCV THEN GOTO 330 I 

320 LET 
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11 J f HIT M]M|::TEREI<ORDtt'’HT 

I I JMPI r LT 
'-II r i - 

I H I iilu -n 

II I I 

1 rfiM" :i<E" 

ij nii F i ^11 Eöfi 
I II ilf r r 
jjn L _r ij 

J II 1 t C ^ 

F 'I I L 

HU lim Fl 


-Autorennen- 

Bei den folgenden drei Programmen sollen Sie mit dem 
Auto eine kurvenreiche Strecke fahren. Jedes Programm 
paßt beim ZX81 in IK und verwendet verschiedene Tricks, 
um mit dem begrenzten Speicherplatz auszukommen. 

-Heißer Reifen- 

In diesem Spiel ist Ihr Rennwagen ein inverses »H« (siehe 
Zeile 110). Die graphischen Zeichen in Zeile 70 befindet 
sich auf der »H«-Taste. Verwenden Sie das inverse »A«, 
wenn Sie eine Spur verlassen wollen. Der Fleck vor Ihrem 
Auto verwandelt sich in Ihre Punktzahl. Jedes Ergebnis 
über 236 ist sehr gut. Lenken können Sie Ihren Flitzer mit 
den Tasten »M« und »Z«. 

2-0 LET fT:=10 
2E LET 

25 LET U=^R/2 
30 LET B*Fl 
4i 1 L L 1 I -II i-H 
4'^LITT_ 

I r L MF Ti 

t ) r um ilT I .D.: ’l^^" 
nj F P [fir U "W" 

80 SCFö'JLL 

90 IF THEN LET E=4T-- 

':100 IF‘ T!HEr.l1 LET ET=43-i- 

"'ff© PF^IIHT RT R.Bi'Jil’ 

120 IF [><fi+U TUEN LET D^^=LVi-2TP,ND 

125 IF D>LI THEN LET .ETRND 

140 PRINT FIT R+Z., B.i 
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^ 150 IF MEh E FEK l>339S-iPEEI< l--; 

^ '^1 ' THLE-! F^'RINT T,;W 

155 LEE 1 Eh i 
160 C30T0 G0 


-Nürburgring- 

Diesmal ist Ihr Auto ein »V«, und die Strecke ist frei, Sie len¬ 
ken wieder mit »Z« und »M«. aber das INKEY$ wird anders 
interpretiert als bei HEISSER REIFEN (vergleichen Sie Zeile 
90 dieses Programms mit den Zeilen 90 und 10 0 von 
HEISSER REIFEN). 

20 LET i-'l-ie 

25 LET Z-R--R 

30 LET 

35 LET 

40 LET 

50 LET D“R 

60 FRIHT RT 

70 PRINT RT R,.EL’'ti“ 

30 SCRDL.L 

30 LET INKEY?E- "2'' Y'-: INKEY 

'l;;0 F'RIHT RT R..E, 

L n Tf C ] IH^M LLT D==^D+2YRHD 
I[ C NirN IFT r i-2:-t:RND 
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-Konvoi- 

Ihr Auto wird durch ein »Y« dargestellt, das auch beim 
Weiterfahren auf dem Bildschirm erhalten bleibt — so ent¬ 
steht eine lange, geschwungene Reihe von Ypsilons, die 
Sie durch die Schrecken einer langen kurvenreichen 
Strecke (zwei inverse »A«, getrennt durch zwei Leerzei¬ 
chen) führen sollen. 

Sie lenken den Konvoi mit den Tasten »6« und »8«. Zeile 40 
verändert die Zeile, ab der SCROLL in Funktion tritt. Ala- 
strair Gourlay (Autor des Buches »34 IK Super-Spiele«) hat 
diese Technik entdeckt. Dieses Programm läuft auf dem 
IK ZX8I 


10 LET 
20 LET 
30 LET 

40 PÜKE 16418.0 
50 LET K=S-i-PI 
70 LET D:=K 
80 LET 
90 SCROLL 
100 PPlIHT TR8 D.: 

110 LET D^=T>+RND*2;tT NOT D.>1S:. RN 

D5t:2:t;<HOT D<6) 

130 PRINT RT S,.Kj "Y" 

140 PRINT RT Sh-..LI<.: 

150 IF PEEK (PEEK 16393-i-256:TPEE 
K 16399 ;:'==^l;36 THE^^ GOTO 200 
170 LET P:--T'-t-l 

130 LET K=T’:;+< INKEV5r.'"8” ''-UHKEV 

> 

190 GOTO 90 
2;00 PRiNT P 


-Snap-- 

Der IK ZX80 (mit neuem ROIVp oder ZX81 erzeugt in ziem¬ 
lich schneller Folge eine Reihe großgedruckter Zahlen 
(eins bis neun). Sie sollen raten welche Zahl als nächstes 
kommt und die jeweilige Taste gedruckt halten Wenn 
der Computer als nächstes die Zahl bringt, die Sie ge¬ 
drückt halten wird in großen Buchstaben das Wort SNAP 
gedruckt (mit der in Zeile 33 beginnenden Routine). Pro 
Runde kommen zehn Zahlen. Am Ende der Runde er¬ 
scheint Ihr Ergebnis riesengroß auf dem Bildschirm. Auf 
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dem ZX81 sollten Sie dieses Programm im FAST-Modus ab- 
lauien lassen, 


1 DIM R«-::4.2> 

2 Din BSi<50::' 

3 LET 1 >='«” 


4 LET mc 2 

5 LET RSi'-: 3 

6 LET fl$c:4>:="| 1" 

7 LET B$="1444133333i3121i313 
1441331213112141133331414i14131" 

e GOTO 20 

10 FOR 1=^1 TO 5 

11 PRINT fl*(VRL 

12 HEXT I 

13 RETURN 

20 LET S=0 

21 FOR G=1 TO 10 

22 LET X«IHT (RNDTIO:) 

23 GÜSUB 10 

24 PflUSE 50 

25 IF INKEV*=--STR* X THEM GÜSUB 


26 

27 

2S 


30 

31 

32 

1-i? 


CL3 

HEXT G 
CL3 

PRINT "PUNKTE" 

LET X«S 
GÜSUB 10 
STOP 

PRINT fiT 1., I 


34 PRINT Tflß 16; 

0 < 

35 PRINT TflE 16; "W** ^ » II 


36 LET S=S+1 

37 PRÜSE 5© 
39 RETURN 
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-Meteorit- 

Bei diesem Spiel befinden Sie (das »O«) sich innerhalb ei¬ 
nes Rahmens, in dem ungefähr jede Sekunde ein inver¬ 



ser Stern erscheint (siehe Computerausdruck). Wenn ei¬ 
ner auf Ihnen landet, sind Sie tot und das Spiel ist aus. Sie 
gehen mit der Toste »W« nach oben, »D« nach rechts, »A« 
nach links und »X« nach unten. Ihre Punktzahl sollte über 
115 liegen. 


20 FOR N^=l TO 14 
30 PRIhJT "i 
40 HEXT M 
50 PRINT 
Ö0 LET P=lG9ir 
?0 LET 8=0 
00 PDKE P,.52 

90 PRINT RT 20..0^ "F'ÜNKTf£#''.i3 

100 PRINT RT l-!-iIRND:t:13:'.. l-KRHDT 

13:u 

110 IF- PEEK P052 THEN STOP 
120 PRUSE 30 

130 POKE P.0 
140 LET S=:S+i 

150 LET IHKEV®-''D" T-C IHKEV 

>+1?*’::'^ INKE'r'T^ 


"W" 

160 IF PEEK P<>0 THEH STOP 
170 GOTO 80 
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UFO 


Bei diesem IK-Spiel sind Sie Kommandant eines UFOs, und 
unter Ihnen lauten kleine Andromedaniei (»A«) umher. 
Zu ihrer Vernichtung steht Ihnen eine begrenzte Zeit zur 
Verfügung, Sie schießen, indem Sie »U drucken, aber je¬ 
der Schuß vermindert die Ihnen bleibende Zeitspanne 
gewaltig. »5« und »8« bewegen Sie vor- und rückwärts, Ge¬ 
ben Sie bei Spielgeginn eine Zahl zwischen 2 und 31 ein. 
Diese Zahl bestimmt die Geschwindigkeit und Laufrich¬ 
tung der Andromedanier. Ihr Ergebnis wird am oberen 
Bildschirmrand angezetgt. 

10 LET 
15 INPUT U 
20 LET 

30 LET 2:--=0 
50 FOR TO 1000 
120 FÜR E:=^:12 TO 18 STEP 2 
125 PRINT RT 10,. R; 

127 LET Q=RBS CRTfS 

130 IF IHI<EV!li<>"r'. THEN GOTO 14 

'"l32 LET 
135 PRINT RT E,. 

13? IF B^'iQ~l THEN LET 

+34et9 

140 PRINT BT E.Q,;"#" 

142 NEXT E 

144 IF INKEV!Ji-=”l" THEN LET 

150 PRINT RT 0..9iZ 
ISe PRINT RT 2O.,0.;B!li 

170 LET TO Tf-BSC 1 TO N. 

1 > 

490 LET R--R-( INKEY$^^^"S" INKEY 

i' 

500 NENT .J 
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-Squash- 

Sie erhalten drei Bälle pro Runde. Mit »7« bewegen Sie Ih¬ 
ren Schläger nach oben mit »6« nach unten, Je länger Sie 
den Ball im Spiel halten desto höher Ihre Punktzahl Je¬ 
des Ergebnis über 67 ist gut Dieses Spiel benötigt IK aui 
dem ZX81 oder ZX80 mit neuem ROM. Lxjssen Sie es im 
FAST-Modus abloulen. 


1 LET T=0 
10 LET S=3 
20 LET B=ll 
30 LET C=B 
40 LET n=12 
45 PRIHT ’'ßRELLE#".;S 
50 PRIHT RT B.13 j 
G0 PRINT RT C.R;"#'' 

65 IF R»0 THEH LET C=INT <Rm 
5H10 

70 LET fl=R-l 

80 IF IHKEY$="7'’ THEN LET 

1 

P0 IF IHKEV!}3--="6" THEH LET B--=^ß+ 

1 

100 PRIHT RT B. 13i '1 " 

105 LET R=R-1 

110 PRINT RT C..R,i "O" 

120 IF fl=-12 RHD THEN LET R 
= 12 

125 LET 

130 IF R=-2Q THEN GOTO 200 
150 GOTO 50 
200 LET S=S-1 
205 CLS 

210 IF S>0 THEN GOTO 28 
240 PRIHT "PUNKTE#” ,iT 


-Programmumsetzung- 

-für das neue ROM- 

-und den ZX81- 

Es ist im allgemeinen leicht, für den ZX80 mit altem ROM 
geschriebene Programme so umzusetzen, daß sie auf den 
Maschinen mit neuem ROM oder dem ZX81 laufen ob¬ 
wohl Programme, die PEEK und POKE enthalten — speziell 
bei REM-Anweisungen — einige Schwierigkeiten berei¬ 
ten können. 
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sie weiden häufig feststellen, daß das Progiamm auf ei¬ 
ner Maschine mit neuem ROM viel besser läuft d.h. es ist 
benutzertreundllcher bei Eingabe-Aufforderungen bei 
der bewegten Bildschiimanzeige oder der Gestaltung 
der Anzeige. Allerdings hoben Sie bei Verwendung des 
neuen ROM weniger Arbeitsspeicher zur Verfügung als 
mit dem alten ROM. Viele IK-Programme passen mit dem 
neuen ROM nicht in IK, da nun die Systemvarioblen viel 
mehr von dem ursprünglichen IK RAM belegen als bei 
der Maschine mit 4K-ROM. 


-Bewegte- 

-Bildschirmanzeige- 

Wenn Sie ein Programm für das alte ROM ln eine Maschi¬ 
ne mit neuem ROM eingeben, lassen Sie eine Routine für 
die bewegte Bildschirmanzeige ganz weg. Verändern 
Sie die »Zeit«-Angabe (normalerweise in der GOSUB-Zeile 
POKE16414, n enthalten, wobei n die Zeitangabe ist), ln an¬ 
deren Programmen ist die Zelt als LET T=n definieit. Wenn 
Sie die PAUSE-Funktionen verwenden, legen Sie n so fest 
(wie in PAUSE n), daß die effektivste Anzeige erreicht wird. 
Denken Sie daran daß PAUSE 50 (in den USA PAUSE 60) 
die Anzeige eine Sekunde lang enthält PAUSE 25 (PAUSE 
30) eine halbe Sekunde, PAUSE 10 0 (PAUSE 120) zwei 
Sekunden usw. Um Ihnen einen Anhaltspunkt zu geben 
welche Zahl Sie hinter dem Wort PAUSE einsetzen sollen 
je höher die für die Zeltintervalle verwendete Zahl für das 
alte ROM (bis zu und einschließlich 254), desto kürzer 
bleibt die Anzeige erhalten. 

-Zufallszahlen- 

Es ist aufwendiger — was den Speicherplatz anbelangt — 
mit dem neuen ROM eine Zufallszahl zu erzeugen als mit 
dem alten. 

Hier sind die zwei Versionen 

ALTES ROM NEUES ROM 

LETJ=RND(6) LET J = INT(RND=i=6)-rl 

Etwas Speicherplatz wird dadurch emgespart, daß INT 
und RND bei Maschinen mit neuem ROM jeweils mit nur 
einem Tastendmck eingegeben werden, so daß sie nur 
jeweils ein Byte beanspruchen. Das Multiplikofionszet 
Chen jedoch und die Addition (die verhindern, daß Sie 
als Teil Ihrer Folge von Zulallszahlen eine 0 bekommen) 
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schlucken Speicherplatz. Wenn Sie im Verlaut eines Pro¬ 
grammes in verschiedenen Bereichen viele Zutallszahlen 
erzeugen müssen, könnte es sich lohnen, eine Unterrouti¬ 
ne einzutühren wiet LET J = INT (RND*K)-i-l und jedesmal 
K zuzuordnen, ehe man in GOSUB geht. Natürlich dauert 
das länger, als wenn die Zeile zusammenhängend in 
den meisten Fällen, außer wenn Sie damit Programmier- 
zeit etnsparen und — bei manchen Programmen — auch 
Speicherplatz, wenn Sie in der Untenoutine mehr tun, als 
nur Zufallszahlen zu erzeugen. 

Diese Betehlsiolgen können sehr nützlich sein. Die Zeile IF 
RND (2) = THEN.,. für altes ROM z.B. können Sie leicht umset- 
zen in das (beinahe) identische IF RND > ,6 THEN... Sie kön¬ 
nen damit auch statistisch gewichtete Entscheidungen 
treffen,' wenn z.B. ein bestimmter Programmzweig jedes 
dritte Mal verfolgt werden soll schreiben Sie einfach: IF 
RND <.34 THEN... 


-Print AT- 

Es gibt eine hilfreiche kleine Routine, die die Zeile POKE 
Y*33-t-X-i-l-FPEEK (16396)+PEEK G6397)*256, n verwendet, 
um n Zeichen auf den Bildschirm eines ZX80 mit altem 
ROM an der Stelle Y, X zu schreiben (wobei Y die Zeile und 
X die Spalte angibt), Die Maschinen mit neuem ROM ma¬ 
chen das automatisch und bieten außerdem den Vorteil 
daß Sie mehr als ein Zeichen an diese Stelle schreiben 
können. Zur Erläuterung 

Mit dem neuen ROM können Sie den PRINT AT Befehl fol¬ 
gendermaßen verwenden Sie geben zwei Koordinaten 
arx Y (Zeile) und X (Spalte). Diese werden wie folgt in ei¬ 
ner Zeile verwendet, die das Wort ENDE ungefähr in die 
Mitte des Bildschirms druckt; 

Die beiden Koordinaten werden durch ein Komma ge¬ 
trennt nach der zweiten Koordinate kommt ein Semiko¬ 
lon und danach das zu druckende Wort Die beiden 
Koordinaten können im Verlauf eines Programms erar¬ 
beitet werden, also reicht die Zeile: PRINT AT B A/3; »EN¬ 
DE« aus. Die Funktion PRINT AT rundet eine Kommazahl 
automatisch auf eine ganze Zahl ab. 

Wenn Sie also an einer bestimmten Stelle drucken wol¬ 
len oder finden, daß ein PRINT AT ein Programm verbes¬ 
sern würde (und es kann eine Menge leerer PRINT-Zeilen 
sowie Schleifen zum Drucken einzelner Leerzeichen auf 
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den Bildschirm sparen), sollten Sie auf jeden Fall diese 
Methode anwenden. Wenn sich ein Gegenstand bewe¬ 
gen soll, müssen Sie nach dem PRINT AT an derselben 
Stelle einen PAUSE n Befehl hinzufügen, wobei Leerzei¬ 
chen die Stelle elnnehmea wo vorher z,B. das Wort ENDE 
stand. Ein einfaches Beispiel 

Damit bewegt sich ein X wahllos (mehr oder weniger 
schräg) über den Bildschirm. Sie können also bei Maschi¬ 
nen mit neuem ROM das lange POKE Y*33... usw. auslas- 
sen und es durch ein einfaches PRINT AT ersetzen. 

Das neue ROM hat auch eine TAB-Funktion, die eine 
PRINT-Anweisung ln jeder beliebigen Spalte einer Zelle 
starten kann, ohne daß Sie eine »Leerzeichen<-Schlelfe 
verwenden müssen. 

Vergessen Sie bitte nicht, daß zwischen der Zahl und den 
zu druckenden Zeichen ein Semikolon stehen muß. Die 
Funktion TAB wird mit nur einer Taste eingegeben. 


-Graphik- 

Bei Maschinen mit neuem ROM können alle Graphikzei¬ 
chen (inverse Graphiksymbole, inverse Zahlen und Buch¬ 
staben, sogar ein inverses Leerzeichen) direkt auf der Ta¬ 
statur eingegeben werden. Das erspart die Anwendung 
von CHRSS (n) (obwohl Sie im Bedarisialle froh darüber 
sein werden, daß CHR$ mit nur einer Taste einzugeben 
ist). Die »automatisch« inverse Graphik können Sie zur 
»Verschönerung« von Programmen verwenden, indem 
Sie Z.B. Hinweise und Eingabe-Aufforderung mit inversen 
Buchstaben eirigeben. 

Bei anderen Zeichen benutzen Sie zur Umsetzung die fol¬ 
gende Tabelle, bei der die Positionen für Maschinen mit 
altem und neuem ROM jeweils hintereinander aufgeführt 
sind: 


-REM-Anweisungen, TL$- 

Mit dem alten ROM ist die erste Adresse nach dem Wort 
REM die 16427, Die entsprechende Adresse bei Maschinen 
mit neuem ROM ist 16514, Es erfordert einige sorgtältige Re¬ 
chenarbelt, Programme, die viel mit in einer REM- 
Anweisung gespeicherten Daten arbeiten, für eine Ma¬ 
schine mit neuem ROM umzusetzen. Die Funktion TL$ 
(Truncate left=links abschneiden) des alten ROM ist mit 
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dem neuen ROM nicht verfügbar.- deshalb müssen Benut- 
zeiantworten von mehr als einem Zeichen bei denen der 
Computer die Eingabefolge Zeichen für Zeichen nimmt, 
ersetzt werden durch Fragen die es dem Benutzer ermög¬ 
lichen seine Antwort Zeichen für Zeichen einzugeben 
(und dem Computer, sie Zeichen für Zeichen zu behan¬ 
deln). Mit dem neuen ROM können die Zeichenreihen- 
Felder (die in Wirklichkeit Zeichen-Felder sind) als eine 
Art von READ/DATA verwendet werden TL$ (A$) kann 
bei Verwendung des neuen ROM mit A$ (2 TO) simuliert 
werden. 


-INT- 

Vor einer Division muß generell die Funktion INT einge- 
lügt werden (mit dem neuen ROM nur ein Tastendruck). 
Wenn es also im Programm für altes ROM heißt LET 
F=A/16, sollte die Version für neues ROM lauten LET 
F=1NT(A/16). Dies ist nicht erforderlich, wenn Sie das Er¬ 
gebnis einer Berechnung nur für PRINT AT oder TAB ver¬ 
wenden, da die INT-Funktion dann automatisch ausge¬ 
führt wird. 

Hier eine Umsetzungstabelle 
für PEEK/POKE-Adressen, 

die mit REM-Anweisungen verwendet werden 


16426 

16513 

16427 

16514 

16428 

16515 

16429 

16516 

1643|r 

16517 

16431 

16518 

16432 

16519 

16433 

16520 

16434 

16521 

16435 

16522 

16436 

16523 

16437 

16524 

16438 

16525 

16439 

16526 

1644gr 

16527 

16441 

16528 

16442 

16529 

16443 

16530 

16444 

16531 

16445 

16532 


16446 

16533 

16447 

16534 

16448 

16535 

16449 

16536 

16450 

16537 

16451 

16536 

16452 

16539 

16453 

16540 

16454 

16541 

16455 

16542 

16456 

16543 

16457 

16544 

16458 

16545 

16459 

16546 

16460 

16547 
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Kodeliste der Meldungen 

0 Programm erfolgreich beendet 

1 Nach NEXT fehlt die Kontrollvarioble FOR 

2 Variabienname-nicht gefunden 

3 Index außerhalb des erlaubten Bereiches oder 
Index-Fehler 

4 Speicherplatz reicht nicht aus 

5 Bildschirm voll 

6 Arithmetischer Überlauf 

7 Kein entsprechendes GOSUB für einen RETURN- 
Befehl vorhanden 

8 Versuch, INPUT als Kommando einzugeben 

9 STOP-Anweisung ausgeführt 

A Nicht erlaubtes Argument für bestimmte Funktio¬ 
nen 

B Ganzzahl außerhalb des zulässigen Bereiches 

C Der Text des (Zeichenreihen-) Argumentes von 
VAL ergibt keinen gültigen numerischen Aus¬ 
druck. 

D Programm wurde mit BREAK unterbrochea oder 
INPUT-Zeile beginnt mit STOP 

F Bei SAVE wurde kein Progiammname angegeben, 
Leerzeichen allein sind nicht zulässig, 

CONT ist gleichbedeutend mit GOTO m, wobei m die 

dem Fehlercode angezeigte Zeilennummer ist, außer 

nach Code 9, wo es gleichbedeutend ist mit GOTO m+1, 
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-Bombe- 

Sie suchen aui einer durchgehenden schwarzen Fläche 
(einem 9x9) Raster von CHR$ (128) nach einer Bombe, 
wobei Sie nur mit Ihrer Tastatur bewaffnet sind. 

Ön »Bombendetektor« — eine unter dem großen 
Quadrat erscheinende Zahl — gibt Ihnen Hinweise, wo 
Sie sich relativ zur Bombe befinden. Sie bewegen sich 
durch Drücken der Taste 5, 6,7 und 8, die auf der jeweili¬ 
gen Taste angegebene Pfeilrichtung. 

Wenn Sie die Bomoe finden, erscheint ein inverses »ß« an 
der Stelle, wo sie versteckt war. Dieses IK-Programm teilt 
Ihnen auch mit, wie lang sie für die Suche gebraucht ha¬ 
ben. 


10 LET S-0 

LET R=^i+THT (F;NDTS> 

M LIT L HIMT R\m? 
m LFT ‘ ^6 

LLf 1 

t-M r ir 1 Tn 10 
n rf IN 
II II r 

II F iT rn 10 
lüü rnf I 1 ru 10 
ijn r iF c . t mxh-peek oci'H-peek < 
K-^i 4 nr M 

i_n r^r-'T V 

1 n HE r 
140 LET C=='a 
3 -M i E r r I 

3 Et r I 1 L C F ■ tD+i+PEEK OO-I-PEEK 
f a 4 -5C 1-9 



LLT 

- H 3 



irn 

IP 

IHI Fi'S "" 

THEN GOTO 

100 

190 

F HF r u 4 

1-HF''EEK (K>i 

i-PEEK 

_uu 

jf 

IHI Elt-"? 

" THEN LET 

C--C- 

210 

IF 

IHK:EYt="5 

THEN LET 

. 

'230 

IP 


THEN LEI 

c=c- 

230 

IF" 

IMI<EYt^=^"3 

1 ” THEN LET 

D=D-t- 

240 

IF 

r:<l TUEN 

LET 


258 

IF 

09 THEN 

LET C:=-L^ 



IF 

D<:|. THEN 

LET 


';’7n 

IF 

D>9 THEN 

LET D-9 


230 

IF 

Fl-C Find 0 

i:-:D THEN GOTO 31 


86 





( I I E 1 ~’i-FLni< (IC'H-PEEK (K-H 
I [ L '■ MIBS (fi-C >+156 

t I 11 ( 

i I rrrn rnuLG ; 

r lUEPE # LF :ijches:h" 

li F II L I + +r ^1+PEGK < F-:; >+PEtil< 
i H t." f 1/ 


-Siebzehn und Vier- 

-Blackjack- 

John Scarne sagt in seiner maßgebenden Spiele- 
Enzyklopädie, dies sei das »weitestverbreitete Karten- 
Glücksspiel der Welt«. Es ist verhältnismäßig einiach zu 
spielen Die Spieler versuchen, möglichst nahe an 21 »Au¬ 
gen« heranzukommen, ohne diese Zahl zu überschreiten. 
Asse zählen entweder als 1 oder 11, und König. Dame, Bu¬ 
be als jeweils 10. Dieses Programm zählt ein As automa¬ 
tisch als 1, wenn 11 die Augenzahl über 21 brächte. Der 
menschliche Spieler kommt bei dieser lZX81)-Version des 
Spiels immer zuerst dran. Nach dem Austeilen jeder Karte 
entscheiden Sie, ob Sie eine weitere nehmen oder »aui- 
hören«, d.h. bei der derzeitigen Augenzahl bleiben (siehe 
Zeile 80). Die Runde endet unentschieden, wenn beide 
die gleiche Augenzahl unter 21 hoben. Wenn Sie »tot« 
sind, d.h. mehr als 21 haben, gewinnt der !ZX8ii diese Run¬ 
de automatisch. Die PRINT-Zeilen dieses 2K-Programms 
sind ein gutes Beispiel daiür, wie eingebildet der 1ZX81) ist. 

1.0 GOTO 160 

E0 LET CRRD^--üNT a;'N[nt: 11 >+1 
:30 IF CfiPD^Ul FIND D+Cr-|RD>21 Tf-I 
£-:H LH7 CRfÜD-l 
35 LET D-=D+CF=IRD 
40 F^lETURN 

50 LET i::RRD==^INT FÜ-tD:+:U >+l 
60 IF CRF:tD^+Ll RND E3+CFlRD>21 TH 
EH LET CRRD-d 
65 LET B=-ß-F'CRr-7D 
70 RETURN 

80 PRINT ,,"UEITEF;:E KFiFN'E >: 1 > 

ODEF::#^.''HüEREH 8IE fiUF <0>T" 

30 IHPUT C 
95 CLS 
100 RETURN 

110 PF?INT NOCH EIN SPIEL".. 

"SIE KRRTEMENPERTE? tJ+FO" 

130 INPUT Fi-35 
130 CL3 
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14Ü IF ReH:='’.J"' tuen rum 

150 STOP 

160 LET D^-0 

170 LET 

1S0 GOSUB 20 

U-10 LET H-CfiRD 

200 GOSUB 20 

210 LET fi^^=C-FlRD 

220 GOSUB 50 

230 LET E^==CriRD 

240 GOSUB 50 

250 LET F=^CFIRD 

260 LET 81 HRT#" 

270 IJÜT 0$==^" MENSCH HRTlf’ 

280 FR INT 

290 PRINT CiS.1 E.'’lUJNDft",. F 
300 PRINT "IHSCESfiMTlN‘;E+F 
310 LET D^==H+F! 

320 LET B-E-i-F 

330 IF B^21 THEH GOTO 4'40 

340 GOSUEi 80 

350 IF G^3 THEN GOTO 490 
360 CLS 

365 IF D<i7 THEN GOTO 530 
370 IF NOT D--=21 THEH PRINT ..BSü 

[) 

380 IF NOT B^^21 THEN PRINT 

0 

I ir L L MNr B UND D<21 THEH 
Ff INT 1 IIN L miENTSCHIEDEN” 

HiU ir f ^1 RMD NOT B^21 THEN P 
RINT LI i4 inCK. . . " 
fii-- if r 1 THEN FRINT Cf; "VERL 
OPLr ] iCNINNlL.." 

Uii IF L E HND NOT D>21 THEN PR 
INF Z :] EL-^IEGT MENSCH""DURCH 
EIFi LF ILLTilllTES SPIEL" 

M'- IF r ] TUEN PRINT B?i,i"TOT" 
4 t-i If L ^1 IIP, ^:B>D find NOT B>2 
1 :> THEN PRINT "SIE HRBEM IRGENDH 
IE GEWÖHNEN. "HOHL GLUECK GEH 
RBT" 

430 GOTO 110 

440 PRINT CiB. "BLOCKJF=!CI<" 

460 IF NOT D^21 THEH GOTO 370 
476 PRINT "DER KLUGE COMPUTER E 
BFNFRL.L3. 'L > "FiLSO UNENTSCHIEDEN" 
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-Mordechai'Mind- 

Dieses Spiel wird von der Firma Invicta vertrieben, die 1971 
die Rechte daran von dem Amateurmathematiker Mor- 
dechai Meirovich erwarb, In England ist es seit Jahrhun¬ 
derten unter dem Namen »Bulls and Cows« bekannt. Die 
Spielregel ist einfach. Der Computer bildet auf den Ziffern 
1 bis 9 einen vierstelligen Code, wobei jede Ziffer inner¬ 
halb des Codes nur einmal vorkommt. Sie versuchen, 
den Code zu erraten, indem Sie eine vierstellige Zahl und 
dann NEWUNE eingeben. Eine richtige Zahl an der richti¬ 
gen Stelle ergibt »Schwarz«, ein richtige Zahl an der fal¬ 
schen Stelle ergibt »Weiß«. Sie hoben nur zehn Versuche 
zur Verfügung, um den Code zu knacken. Verwenden Sie 
bei einem Versuch nicht zweimal die gleiche Zahl, sonst 
verwirren Sie den armen kleinen ZX81, 


10 

DlVl C(4 



20 

DIN CfM- 

) 


30 

LET 1 

):=^JNT (RMD 

T?) 

40 

FOP 2=^2 

70 4 


50 

LET C<Z 

>^ÜNT (PHD 


60 

FOR 

TO Z-1 


70 

IF- C(.J> 

==n':Z::' THEN 

GOTO 40 

80 

hJEHT J 



80 

NEKT Z 



100 

FOf^ 

TD 10 


:l, 10 

INPUT a 



120 

LET Bl- 

f=l 


130 

FOR Z«1 

TÜ 4 


140 

LET G<Z 

>---R-104:INT 

f;R.--10::' 

150 

LET R-..R 

.••-10 


155 

LET Fl=:=I 

NT R 


160 

NENT Z 



170 

LET 



180 

FOR 2--::l 

TO 4 


190 

LET 



200 

IF HOT 


THEN GüTi 

;;30 




210 

LET B-D 

•H-1 


220 

LFET G'tZ 

>-0 


230 

MENT Z 



240 

FOR Z-0 

TO 4 


250 

IF G'tZ;:' 

-0 THEN GÜ 

iTÜ 300 

260 

FOR J=-l 

TO 4 


270 

IF HOT 

C'fZ^G'r.J ) 

THEN GOTi 

t:90 




280 

LET W:=W+1 


290 

ne;nt J 



300 

MENT 2 
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310 PRINT GjTRB 10.i "SC 

HWRR2#" j CHREß 

340 PRINT "WEIS3tt",iC:HR$ ( 

W-^156:'; 

350 PRINT 

3B0 IF B==4 THEfl PRINT 
370 IF B“4 THEN PRINT "CODE GEK 
NPCKT#"; 

380 IF Ei-=4 THEN GOTO 418 
390 NEXT G 
400 PRINT 

405 PRINT "CODE LRIjtETE#"j 
410 FÜR Z==N TG 4 
430 PRINT CCS'-Z)^ 

430 NEXT Z 
430 GOTO l:l0 
490 GÜSIJE 50 

500 FN^IHT cai;CRRD.; "#SijrinE-#".B 

510 IF B>ai THEN GOTO 430 
520 GOTO 33Ü 
530 PRINT E$;D 
535 IHPüT UiP 
540 G0SU8 30 
530 PRINT B$,.CRRD 
570 PRINT "SEIN ERGEBNIS IS'INt"; 
D 

580 IF D>2j, THEN GOTO 423 
590 IF D<.17 THEN GOTO 543 
GÜ0 GOTO 370 
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Packende Spiele 
für den ZX80 


^|<C »1^ 


-Dame mit IK- 

DAME mit IK? Wir haben es nicht für möglich gehalten. 
Aber als wir das Programm erst einmal laufen ließen und 
sich zeigte, daß es tatsächlich Dame spielt und wirklich 
weniger als IK auf dem ZX80 mit dem altem ROM 
braucht, war uns klar, daß es ins Buch hineingehört. Das 
■Programm hat zwei Teile. Teil 1 dmckt das Spielbrett und 
Teil 2 enthält das eigentliche Spiel. Geben Sie einfach Teil 
1 ein (endet mit Zeile 130 PRINT »BEREITO und lassen ihn 
laufen Danach geben Sie Teil 2 ein, der Zeilen auf Teil 1 
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löscht, Die Informationen aus Teil 1 werden jedoch im 
ZX80 Variablenspeicher testgehalten und bleiben dort — 
solange Sie nicht RUN oder CLEAR drücken, Zum Spielen 
verwenden Sie das gedruckte Brett und Knöpfe oder 
Münzen als Steine. Ihre Steine stehen unten (auf den nie¬ 
drigen Zahlen) und die des ZX81 oben auf dem Brett. 
Wenn Sie die Steine autgestellt hoberx geben Sie entwe¬ 
der GOTO 10 ein (wenn der Computer anfangen soll) 
oder GOTO 320 (wenn Sie auf dem ersten Zug bestehen), 
Die ZX80-Züge werden durch zwei Zahlen angezeigt. Die 
ersten gibt das Feld an, von dem er zieht, und die zweite 
natürlich das Ziel-Feld. Verrücken Sie die Steine auf dem 
Brett entsprechend und entscheiden Sie dann über Ihren 
Zug. Am besten führen Sie Ihren Zug durch, bevor Sie ihn 
eingeben (die Nummer des Feldes, von dem Sie ziehen, 
NEWLINE und dann die Nummer des Ziel-Feldes). 

Die Umwandlung in Damen führt der Computer automa¬ 
tisch durch (und setzt sie äußerst wirkungsvoll ein), aber 
Mehrfachsprünge eines Steins sind im Programm nicht 
vorgesehen, Denken Sie daran, das Programm zu SAVEn 
(auf Band zu überspielen), ehe Sie RUN drücken, sonst 
geht das Spielbrett verloren. Dieses Programm muß vor je¬ 
dem Spiel geladen werden. 

Hier ist Teil 1 des Programms, der das Brett aufbaut, Wenn 
Sie mehr als IK haben, addieren Sie 50 0 zu jeder Zeilen¬ 
nummer in diesem Teil, lügen Zeile 5 GOSUB 610 hinzu 
und ändern Zeile 130 (die dann 630 ist) in RETURN. Das 
bewirkt, daß Sie nicht jedesmal wieder laden müssen 
und RUN statt GOTO verwenden können. In dieser Ver¬ 
sion hat der ZX80 immer den ersten Zug. (Beachten Sie 
das unterstrichene Sternchen * in Zeile 110. Dieses Sym¬ 
bol wird im gesamten Buch verwendet und bedeutet ein 
Leerzeichen). 


ie! DIM A(82) 

2ff DIM X(2) 

LET X( 1) - - 6 
4if LET X<2) e - 7 

50 FOR Z = 0 TO 02 

60 LET A(Z) - 9 

70 IP Z < 75 AMD Z > 55 AND HOT (Z - 67 OR Z = 68 

OR Z = 60 OR Z = 61 On Z « 62) TUEN LET A(Z) = 1 

00 IF Z 54 AND Z > 42 AND NOT (Z = 47 OR Z » 48 OR 

Z - 49) THEN LET A(Z) - 0 

90 IF Z < 41 AND Z > 25 AND HOT (Z = 54 OR Z * 55 OR 

Z = 56 On Z « 28 OR Z = 29) THEN LET A(Z) = -1 

100 NEXT Z 

110 LET A0 = "MEIN ZUG " 

120 LET B0 - "IHRER?« 

150 PHINT "BEREIT« 


93 



Geben Sie das Programm ein und lassen Sie es ablaufen. 
Speichern Sie es einige Male ob, und geben Sie dann 
das folgende Programm ein. BITTE JETZT NICHT MEHR RUN 
DRÜCKEN, sonst geht das Spielbrett verloren. 


10 LET Q » 0 

20 FOR Z - 24 TO 72 

30 IP NOT (A(Z) = 1 OR A(Z) - 2) THEH GOTO 100 

40 IF A(Z) « 1 AMD Z > 23 AMD Z <28 THE3J LET A{Z) = 2 

50 POR X - 1 TO 2 

60 IF A{Z + X(X)) < 0 AMD A(Z + 2* X(X) ) - 0 

THEN LET Q « X(X) 

65 IP Z > 55 THEW GOTO 60 

70 IF A(Z) - 2 AND A(Z - X(X))< 0 AHO A(Z - 2* X(X) ) 

- 0 THE» LET Q = - X(X) 

80 IP MOT Q « 0 THE» GOTO 120 

90 »EXT X 

100 HEXT Z 

110 IP Q - 0 THE» GOTO 160 

120 LET A(Z 4 Q) - 0 

130 LET A(Z + 2»Q) » A(Z) 

140 LET A(Z) = 0 

150 PRINT A0;Z, Z + 2*Q 

155 OOTO 320 

160 LET Y = 0 

170 LET Z - 23 + RMD(49) 

160 LFT Y - Y + 1 

190 IP Y < 100 AHD HOT (A(Z) = 1 OR A(Z) = 2) 

THEH GOTO 170 
200 E*OR X - 1 TO 2 

210 IP A(Z ♦ X(X)) - 0 THQ1 LET g - X(X) 

220 IF A(Z) = 2 AND A(Z - X(X)) - 0 THEN LET Q = -X(X) 

250 IF NOT Q » 0 'niEW GOTO 290 

250 HEXT X 

260 IF y < 100 IHtW GOTO 170 

270 PRINT "SIE HABEN GEWONNEN.“ 

280 STOP 

290 LET A(Z t Q) = A(Z) 

300 LET A(Z) * 0 

310 PRINT A0;2, Z + g 

320 PRINT ,B0 

325 INPUT A 

330 INPUT B 

335 CLS 

340 LET A(B) = - 1 

350 LKT a(a) = 0 

360 IP AB3(A - D) > 7 THEN LET A(A ♦ {(B - A)/?)) - 0 

370 GOTO 10 


94 



-Raumstation- 

Das Leben von ungefähr hundert Siedlern liegt in Ihrer 
Hand. Sie leiten eine 4K-Raumstation mit begrenzten 
Nahrungs- und Sauerstoffvorräten, die gelegentlich von 
Raumpiraten angegriffen wird. Das Geld für den Kauf 
von Sauerstoff und Nahrungsmittel sowie für die jährli¬ 
chen Wartungskosten der Station verdienen Sie durch 
die Herstellung und den Verkauf von Produkten. Nun 
verbraucht die Herstellung der Produkte Sauerstoft des¬ 
halb müssen Sie sorgfältig abwägen, wieviele jedes Jahr 
produziert werden. Dieses Spiel ist eine moderne Version 
von KINGDOMS (Königreiche), und sein Verlauf hängt — 
bis auf die seltenen Angriffe aus dem äußeren Weltraum 
— nicht vom Zufall ab. Es kommt fast ausschließlich auf Ih¬ 
re Geschicklichkeit an. Außer wenn Sie es ganz beson¬ 
ders gescliickt anstellen oder die Startbedingungen sehr 
günstig sind, werden Sie die Station kaum mehr als zwölf 
Jahre am Leben erhalten können. 


1 RANDOMISE 

10 QÜSUB 3000 

20 I.ET YEAR = YEAR + 1 

30 I.ET FOLK - FOLK ^ F0LK/(2 * RHD(18)) - F0LK/(3 + RNDfl^)) 

40 GOTO 710 

50 PRIHT "COMPUTERBERICHT!" 

60 PRINT 

70 IF OXY<OXYNEeD * FOLK THEN GOTO 8000 
80 IP POOD< POODIJKKD * FOLK TUEN GOTO 8100 

90 3F CASH <1 TUEN GOTO 8200 

100 IF FOLK <2 TUEN GOTO 8300 

110 IP FOLK <13 THli.» PRINT "WARNUNG - BEVOELKERUNG«, 

"AM ÄUSSTERBEN'f 

120 TP OXY < 2 • OXYNBED * FOLK THEN PRINT "WARNUNG - 
SAUERSTOFF VORRAT GERING** 

130 IF POOD< 2 * FüODNEED •• FOLK THEN PRIHT "WARNUNG - 
NAHRUNGSVORRAT GERING'» 

140 IF CASH <2000 THEN PRINT "WARIIUNG - 
GELDBESTAND GERING" 

150 PRIHT "BEWOHNER ”;FOLK 

160 PRINT "DIE RAUMSTATION HAT IM JAHR '';YEARj" " 

170 PRIHT 

180 PRINT ''GELDBESTAND IST DM '';CASEI 

190 PHINT r"jAEHRL. WARTUNG: DM ;HEPA1H 

200 PRINT "SAUERSTUFFTANKS ENTHALTEN"; OXY; "RATIONEN". 

210 PRINT ''SAUERSTOFFPREIS DM "{OXYCOST; " PRO RATION" 

220 PRINT "SAUERSTOFFBEDARF drq P^SON"{OXYHEED 
230 PRIHT 

240 PRINT "nakrungsvorrat betraegt" ; F’OüO 

610 LET U =. 128 4 RNDf 11 ) 

620 POR J = 1 TO 32 
630 PRINT CUnU (U)s 
640 NF.XT J 
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650 PRINT 
700 RETURN 
710 OOSUB 50 

71? rniNT "PRODUKTE WIEVIELE WOLLEN SIE",."HERSTELLEN U. 

VERKAUFEN?" 

7M rniNT "SIE VERBRAUCHEN "j ARTCOST; " RATIONEN" 

718 PRINT "SAUERSTOFF UND ERBRIGEN DM"|AnTrAy 
7?0 INPUT B 

730 IF B « ARTCOST < OXY THEN PRINT "ZU WENIG SAUEPSTOFf" 

7-10 IF B * ARTCCST< OXY THEN GOTO 720 

745 LBT CASH - CASH + B » ARTPAY 

750 l-ET OXY = OXY - B » ARTCOST 

755 CLS 

760 G03ÜB 50 


762 PRINT "NAHRUNGSRATlüN KOSTET DM";FOODGOST 

763 PRINT "JEDE PERSON BRAUCHT" ; FOODNEKD; "nAHRUNGSPATIONEN “ 

764 PRINT "CM"; FOODCOST * FOODHEBD} " J_E DM "j 

FOLK • FOODCOST • FOOCWBED;" FUER 
STATION" 

766 PRINT "DAS REICHT ";FOOD/ {POODNEED • FOLK); 

"JAHRE"."BEI JETZIGER BEVOELKERUNG 
770 PRINT "wieviele NAHRÜNGSRATIONEN KAUFEN SIE?" 

780 INPUT C 

790 IF C • FOODCOST < CASH THEN PRINT "GELD REICHT NICHl* 

800 IP C • FOODCOST < CASH TUEN GOTO 780 

805 I.ET FOOD * FOOD + 0 " FOODCOST 

810 LRT CASH * CASH - C « FOODCOST 

820 CLS 

830 GOSUD 50 


850 

855 


860 

870 

880 

890 

900 


PRINT "WIEVIEL SAUERSTOFF KAUFEN SIE?" 

PRINT "BESTAND REICHT "} OXY/ 

(OXYNEED * POLK);"JÄHRE BEI JETZIGER 
BEVOELKERUNG'II 


INPUT D 

IF D * OXYCOST<CASH TUEN PRINT 
IF D • 0XyC0ST<CA3H THEN GOTO 8 
CLS 

IF nND(5) = 2 THEN GOSUB 7000 


'GELD REICHT NICHT" 


2005 LET FOOD = FOOD - FOLK ■* FOODNEED 

2030 LET CASH = CASH - REPAIH - D • OXYCOST 

2040 LET OXY = OXY + D - FOLK * OXYNEED 

2050 GOTO 20 

3010 LEt YEAR =. nND(5) 

3015 LET A0 = "DIE STATION IST TOT" 


3020 

3030 

3040 

3050 

5055 

3060 

5070 

3080 

3090 

3100 

3105 

3115 


LET FOLK » 80 + BND(40) 

LBT CASH = 7 * (700 + RND (800))/ nND(3) 
LRT FOODCOST = RND(7) 

LET ARTCOST = 1 + RND(3) 

LET FOOD = 2000 + HND(500) 

LET OXY = 2000 - RND{1500) 

LET OXYCOST » RND(7) 

LET ARTPAY - 30 * RND(AHTOOST) 

LET REPAIR = 200 + RND(400) 

LKT POODNEED = 1 4 RND(5) 

LET OXYNEED = 2 + RN()(3) 

RETURN 
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7016» CLS 

7012 LET J =» JIHD(6) 

7013 PUINT "STATION ANGEGRIFFEN VON " 

7014 IP J = 1 TURN PflINT "SYRISCHER FLOTTE" 

7015 IP J = 2 TUEN PRINT "ABTRUENNIGEN ERDBEWOHNERN“ 

7016 IP J = 3 TUEN PRINT "MARSMENSCHEN** 

7017 IF J » 4 THEH PRINT "WILDEN VYRILLIEXERN" 

7018 IP J » 5 TUEN PRINT "ROBOTERGESTEUERTEM RAUMSCHIFF“ 

7019 IP J - 6 THEN PRINT "PARALLAKTISCHEM BEGLEITSCHIFF“ 

7020 PRINT 

7025 PRINT 

7027 PRINT 

7030 LET Z = 1 + (FOLK/ (RND(15) ♦ 1) 

7040 PRINT Zj"MENSCHEN KAMEN UMS LEBEN“ 

7045 PRINT 

7050 LEI* ZZ = 250 + RND(250) 

7060 PRINT «feCHADEN BETRAEGT DM"sZZ 

7062 PRINT 

7065 LBT ZZZ = RND(300) 

7066 LBT ZZZZ =. HND(300) 

7067 PRINT "UND NAHRUNGSBESTAND SANK",,"UM "j'/ZZZ 

7069 LET FOOD = FOOD - ZZZZ 

7070 LET FOLK - FOLK - Z 

7075 LET OXY = OXY - ZZZ 

7080 LET CASH = CASH - ZZ 

7085 PRINT 

7090 PRINT ,,"N/L DRÜECKEN" 

7092 INPUT U0 

7095 CLS 

7100 RETURN 

6010 PRINT A0 

8020 PRINT "IHR SAUERSTOFF GEHT AUS IM JAHR "lYEAH 

8040 GOTO 8020 

8100 PRINT A0 

0110 PRINT "NAHRUNG GEHT AUS IM JAHR";YEAn; 

0120 GOTO 8f00 

8200 PRINT A0 

8210 PRINT "GELD GEHT AUS IM JAHR";YEAH; ■' «, 

8220 GOTO 8210 ' 

8310 PRINT "ihre BEVOELKERUNG IST GEFALLEN*' 

0315 LET FOLK = RND(26) 

0320 PRINT "AUF "}FOLK:". WOLLEN SIE SICH" 

8325 LET CASH = RND(300) 

8330 PRINT "SCHMERZLOS UMBRINGEN" 

8340 PRINT "JETZT (1) ODER E. TRAURIGEN UND" 

0350 PRINT "LANGSAMEN TOD ERWARTEN (2)*‘ 

0360 INPÜT B 

0565 CLS 

8370 IF H. = 1 TUEN GOTO 0400 

8305 PRINT "HOFFENTLICH HABEN SIE GUT GEWAEHLT“ 

8395 GOTO 20 

8400 PRINT "LEBEWOHL"} 

84 10 GOTO 8400 


97 



-Schachbrett-NIM- 

Sie und der Compuler nehmen abwechselnd Figuren 
vom Schachbrett. Wer die letzte Figur nimmt, hat verloren. 
Der Computer ist so programmiert, daß er NICHT perfekt 
spielt damit Sie auch ob und zu eine Gewinnchance ha¬ 
ben. Wenn der ZX80 jedesmal gewinnen soll, was aller¬ 
dings wenig Spaß macht, löschen Sie Zeile 340. 


10 LET 3=0 

20 LET C = 0 

30 LEI' Z = 20 ♦ IWDdl) 

40 LET F = 2 + HND(3) 

50 DIM A(32) 

60 GOTO 380 

70 IP S = 0 TEIEH PRINT ”FIGUKEN AUF DEM BRETT"jZ 

60 IP S = 0 TiEEH PniHT "MAX. WEGNAHME";^ 

90 IP C > 0 AND S = 0 THEN PHINT "SIE NAHMEN"{C; 

",ICH NAHM'';D 

100 FOn A = 0 TO 3 

110 PRINT 

1?0 FOn B = 0 TO 3 

130 PRINT CHn0(A(29 ♦ A - B »8 )) {UI1R0( 120)} 

140 NEXT 8 

150 PRINT 

160 FOR B = 0 TO 3 

170 PRINT CHR0(128)JCHR0(A(25 ♦ A - H« 8))5 
180 HEXT B 



190 

200 

210 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


HEXT A 

IP S « 1 THEN PRINT »"SIE GEWINNEN" 

IF 3 = 2 TUEN PRINT ,”ICH GEWINNE" 

IF 3 > 0 TUEN STOP 
PRINT 

PRINT "WIEVIELE NEHMEN SIE? '' 

INPUT C 

IF C < 1 OR C > F TUEN GOTO 250 
LET Z =. Z - C 
IP Z > 0 THEN GOTO 310 
LET S = 2 

IF S =2 THKH GOTO 380 

LET D = Z - 1 - tu - 1}/(P + 1))*(F’ + 1) 

IF D = 0 AND NOT Z = 1 TUEN LET D = RNDiF) 
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330 IP NOT D < ?; TUEN GOTO 3Z0 

340 IF Z < F 2 AND RHD(4) « 4 'rHFJ< LET 

D « D + RND(2) - RND(2> 


345 IF 

F TUEN GOTO 

310 

350 

IP Ü = 0 TUEN 

LET D 

360 

LET Z Z - D 


370 

IF Z = 0 TUEN 

LET 3 

380 

POR A = 1 TO 2 


390 

LET A(A) = 52 


400 

NEXT A 


410 

FOR A = Z + 1 

TO 32 

420 

LET A(A) « 0 


430 

NEXT A 


440 

CLS 


450 

GOTO 70 



-Pfeilwerfen- 

Dieses IK-Piogiamm zeigt, wie man die REM-Anweisung 
dazu benutzt, DATEN tür späteres Lesen zu speichern und 
so die im ZX80 BASIC fehlende READ/DATA-Punktion zu 
ersetzen. Bei diesem Spiel können zwei Spieler unter drei 
Würfel wählen, die 250 Gesamtpunkte erbringen sollen. 
Das Ergebnis Ihrer Entscheidung ist nicht rein zufällig, und 
Sie können ganz bestimmte Strategien entwickeln, die 
verschiedene Ergebnisse bringen. Entwickeln Sie ün Lau¬ 
fe einiger Spiele Ihre Strategie, ehe Sie einen Freund zum 
Wettkampf herausfordern. Die Punktzahl von Spieler 1 
wird in Adresse 16541 gespeichert (beim ZX80 mit altem 
ROM) und die-von Spieler 2 in 16452. Diese werden bei Be¬ 
ginn eines neuen Spiels mit den Zeilen 20 oder 30 wie¬ 
der auf Null gesetzt. Nur in diese beiden Adressen werden 
neue Werte gePOKEt (geschrieben); deshalb müssen nur 
sie auf Null gesetzt werden. Die übrigen — die Werte der 
»Pfetlwürfe* — werden nur gePEEKt (gelesen). Die Werte 
aus der REM-Anweisung werden mit 1 addiert und die Er¬ 
gebnisse in den PRINT-Zeilen 1050,1060 und 1070 mit 
10 multipliziert. 

10 REM 8 ahiftQ slllftW shlftE ahiftW space ahiftW 

apace shlftW ahiftE ahlftE apac© shiftB 

apace shiTtE ehiftD ahlftE iapaces 

20 POKE 16451, 0 

30 POKE 16452, 0 

40 PRINT •'WELCHEK'WDRP SPIELER' 1 (1 - 3)'» 

50 LET Z = 1 

60 INPUT A 

70 IF A< 1 OR A > 3 TUEN GOTO 60 

00 LET A = A + 1 

90 CLS 

100 GOSUB 1000 

110 CLEAR 


99 



120 PRINT 

130 PRINT "WELCHER WURF SPIELER 20-3)" 

140 INPUT A 

150 LET Z = 2 

160 IF A < 1 OR A> 3 TUEN GOTO 140 
170 tET A = A + 1 

180 PRINT 

190 GOSUB 1000 

200 PRINT 

210 PRINT ,"n/l FUER NAECHSTEN WURf'^ 

220 INPUT A0 

230 IF NOT A0 = "" TREU STOP 

240 CL3 

250 GOTO 40 

1000 LET C = 1 4 nND(l2) 

1010 IP A » PSEK(16426 4 C) TUEN LET J = PEEK (16450 + Z) 

1020 IP NOT A = PEEK(16426 4 C) niEN GOTO 1000 

1030 POKE 16450 4 Z, J 4 PEEK06427 4 C) 

1040 3P PEEK( 16427 4 C ) = 6 TUEN PRINT ,’'INS SCHWARZE" 

1050 PRINT "SIE HABEN "} 10«PEEK(16427 4 C);" VON 

A * "jA - 1 

1060 IP Z = 1 TUEN PRINT »"SUMME SPIELER 1: 

10»PEEK(16451) 

1070 IF Z = 2 THEW PRINT »"SUMME SPIELER 2: "• 

10*PEEK(16452) 

1080 IF 10»PEEK(16450 4 Z) > 250 TUEN GOTO 2000 

1090 RE'rURH 

2000 CLS 

2010 PRINT «SPIELER -jZj'-iST SIEGER" 

2020 PRINT ,»"SPIELER 1: 10«PEra<{16451) 

2030 PRINT ,»"SPIELER 2: ";10*PEffl{16452) 

2040 CLEAR 

2050 PRINT "BOING_"} 

2060 GOTO 2050 




-Reversi- 

So wurde in der viktorianischen Zeit eine sehr beliebte 
Abwandlung des Dame-Spiels genannt (auch eine frühe 
Version von Othello erhielt diesen Namen, aber das ist 
eine andere Geschichte), Hier ist die ZX80- und ZX81- 
Version des Spiels. Gespielt wird auf einem normalen 
Dame-Brett. Sie fangen auf der rechten Seite aa der Com¬ 
puter aut der linken. Es gelten die üblichen Dame-Regeln 
(nur in schräger Richtung ziehea schiagea indem man 
über einen gegnerischen Stein in ein leeres Feld springt) 
mit einigen Ausnahmen. Es gibt weder Mehifachsprünge 
noch Damen. Außerdem können Sie beliebig vorwärts 
oder rückwärts ziehen (als ob Sie lauter Damen hätten). 
Aber der Hauptunterschied zwischen REVERSI und DAME 
— und der ganze Zweck dieses Spiels — ist das Ergebnis 
des Schlagens. Beim gewöhnlichen Damespiel nehmen 
Sie den gegnerischen Stein vom Brett, Bei Reversi kehrt 
sich der Stein um in einen Ihrer Steine (»reverse« heißt im 
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Englischen umgekehrt - daher der Name des Spiels). Sie¬ 
ger ist, wer zuerst acht Steine »umgekehrt« hat. 

ZWEI DRINGENDE WARNUNGEN: Manchmal gerät das 
Spiel in einen Kreislauf von ICH NEHME DEINEN STEIN, DU 
NIMMST IHN ZURÜCK. Wenn das geschieht, ziehen Sie mit 
einem anderen Steia sonst sitzen Sie immer noch beim 
gleichen Spiel, wenn der Computer sich in seine Bestand¬ 
teile autlöst. Die zweite Warnung: Das Spiel macht in ho¬ 
hen Grade süchtig. Und noch etwas: Sie brauchen dafür 
mindestens 4K. 


10 

20 

35 


1000 

1010 

1020 

1030 

1040 

1030 

1060 

1070 

1080 

1090 

1095 

1100 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


GOTO 9000 

OOSUB 3000 
LET Q ° 0 

IP SI - 8 THBH LBT Q = 1 
IF SM - 8 Tliai LBT Q - 2 
IF Q > 0 THBN GOTO 3000 
PRIHT 

IP A0 > TREU PRINT "IHR LETZTER ZUG WAR NACH"tA0 
PRINT * 5IESER ZUG VON? (BUCHSTABE,ZAHL)" 

INPÜT B0 

PRINT B0J" NACH?' 

INPÜT 0$ 

LET A0 ° C0 

FOR W B 1 TO 2 

IP W = 1 TUEN LET E0 « B0 

IP W = 2 THEH LET ES = C0 

LET y(W) = -50*(^ -62*(.E$ = "A2") -49''(E0 ,"A4") 

-36» E0 b»A 6-) -23*(B0 = "Ae») -69»(B0 « "Bl") 

-56»(E0 = "B3") - 43*(Eg = "öS") - = 

"C2") - 37*(B0 - "06") - 24''{[ä0 = "08") - 70* 
(E0 » "Dl") - 57*(B0 = "D5M - 44*(E0 = "DSM 
-31* E0 = "07") - 64*(BÄf = "E2") - 51-(E0 = 

“ *'B6") - 25*{E0 = "E8") -71« 

(E0 = "PI") - 5Ö*(E0 = "P3") - 45*{Ea = "FS") 
-32''(E0 = "P7") - 65»(E0 = "02") -52«(E0 « 

"04") - 39*(E0 =r "G6") -26«(E0 = "08") -7?* 

(E0 = "Hl") - 59«(E0 = "H3") - 46«(B0 = "lis") 
-33*(E0 = "H7") -30* (E0 = "B7") 


NEÄT W 
LET A(Y(2)) 
LET A{y(l)) 
IP ABSfYd) 


0 

Y(2)) > 


7 THEH LET SM = SM 


IF*. Y(1) - Y(2) = 12 THEN LET A(Y(l) - 6 ) 

IF Y(l) - 7(2) = 14 TUEN LET A(y(l) - 7 ) 

Y(1) = 12 TUEN LET A(Y(2) - 6 ) 

14 THEN LET A(Y( 2 ) - 7 ) 


IP Y(2) 

IP Y(Z) - Y(1) 
LET HOVE = 1 
QÜSUÜ 3000 


2000 HEW COMPUTERZUEGE 

2005 LET X =. 0 

2010 POH Z = 23 TO 72 

2020 IF NOT A(Z) = 9 'iUEH GüTü 2000 

2040 IP A{Z i 14) = 0 AND A(Z + 7) = 1 TUEN LEI X = 14 

2050 IF X = 0 AND A(Z + 12) = 0 AND A(z + 6) = 1 

TUEN LET X = 12 
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2060 IP X = 0 AND A(Z - I 4 ) = 0 AND A(Z - 7) “ 1 
TIIQJ LET X = -14 

2070 IF X = 0 AND A(Z - 12) = 0 AND A(Z - 6) » 1 
THE» LET X = -12 

2080 IF X = 0 TUEN NEXT Z 

2090 IF X = 0 TUEN GOTO 3000 

2100 LET SI = 31 + 1 
2105 LET A(Z) « 0 
2110 LET AU ♦ X) = 9 
2120 LET A(Z + X/2) - 9 

2150 GOTO 20 


3000 FFM COMPUTER ZIEHT UMSICHTIG 

3005 LET X = 0 

3015 LET Y = 0 

3030 LEI’ Z o 22 + RHD( 50 ) 

3040 LET Y « Y + 1 

3050 IP Y < 50 AND NOT A(Z) •= 9 THEM GOTO 3030 

3060 IP X = 0 AND A(Z - 6 ) « 0 AND A(Z - 12) - 0 

THEN LET X = - 6 

3070 IF X - 0 AND A(Z - 7) = 0 AND A(Z - I 4 ) - 0 
THEW LET X - - 7 

3080 IF X « 0 AND A{Z + 6 ) - 0 AND A(Z 4 12) = 0 
TILEN LET X = 6 

3030 IF X « 0 AND A(Z 4 7) » 0 AND A(Z 4 14) = 0 
THEU LET X = 7 

3100 IF X = 0 AND Y<50 THEW GOTO 3030 

3110 IF X = 0 AND Y") 49 THEN GOTO 4000 

3120 LET AU) • 0 
3130 LET A(Z 4 X) = 9 
3140 GOTO 20 

4000 HEU 

4010 LET Y = 0 

4020 LEI’ Z = 22 4 RND(50) 

4030 LET Y = Y 4 1 

4040 IF Y 50 AND NOT A(Z) » 9 THEU GOTO 4020 

4050 IF A(Z 4 7) = 0 THEN LET X s 7 

4060 IP X = 0 AND A(Z 4 6) = 0 THEN LET X = 6 

4070 IF X = 0 AND A(Z - 6) * 0 THEN LET X = -6 

4080 IF X = 0 AND A(Z - 7) - 0 TUEN LET X = -7 

4090 IF X = 0 AND Y < 50 THEN GOTO 4020 

4100 IF X * 0 AND Y > 49 THEN GOTO 4500 

4110 LET A(Z 4 X) = 9 

4120 LET A(Z) = 0 

4130 GOTO 20 

4500 LET Q = 2 

4510 GOTO 40 

(Hinweise Jedes folgende "/" steht 
für SHIFT AI 


5000 REN rniMT BOARD 

5002 LET U0 * "" 

5005 CLS 

5010 PRINT 

5012 PRINT 

5013 PRINT 
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5015 PRIHT "ZXeO * »ST,,, "MENSCH "jSM 

5040 PRINT 

5045 PRINT i ; 1 12545670" 

5050 PRINT Tspaceo shlftP BshlftT shlftD" 

5060 PRINT i * • A";CHR0(150)?"/";A{62);"/";A(49)."/"* 

A(36)j"/"?A(25)5"8hlftq" 


5070 

5060 

5090 

5100 

5110 


5120 

5125 

5150 

5155 

5140 

5141 

5142 
5145 

5144 

5145 
5150 
5160 


PRINT i B"}ann0(150)jA(69);"/";A(56);"/"jA(45) 

''/";A(30);'*/ ahiftQ" 

PRINT i * 1 C"}CIin0(130);"/"iA(63)f "/";A(50)j "/"? 
A(37);"/";A(24)!"3hiftQ" 

PRINT i 1 1 D";CHR0(l30)fA(70){"/"{A(57)8"/"jA(44) 
"/";A(31){"/ ahiftQ" 

PRINT »" i Jl i E''«CRR0(l30h''/'';A(64);"/";A(51){"/"} 
A(38);"/"5A(25);"shiftQ" 

PRINT ,"1*1 F"5CHR0(130)|A(71);"/"jA( 58);"/"8A(45) 
"/";A(32);"/ ahiftQ" 

PRINT ,'•*** Q";CHR3( 130);A(65);"/";A(52); 

- A(39)!"/"{A(26);" ahiftQ" 

PRINT ," * * « H"jGHR3(l30);A(72)j"/";A(59)j"/"5A(46) 
"/";A(33)j'V ahiftQ" 

PRINT 4spnces ahlftR 8ahift3 shlftE" 

PRINT * * 1 1 1 12345678" 

IP Q = 1 TUEN PRINT , ,"ICH GEWINNE" 

IP Q = 2 THEN PRINT »."SIE GEWINNEN" 

IP Q> 0 TUEN STOP 

IP MOVE = 1 TUEN PRINT ZUC WAR NACH ";C0 

IP MOVE = 1 TUS1 INPUT U3 

IP MOVE = 1 AND U3 = "S" TilCH STOP 

LET MOVE = 0 

RETURN 


9000 DIH A(92) 

9005 1/ET MOVE = 0 

9010 LET A3 = "« 

9015 LET Q = 0 
9020 LET SI = 0 

9030 LET SM = 0 

9040 POR A = 1 TO 92 

9050 LET A(A) 2 

9060 NEXT A 

9070 POR A = 23 TO 39 

9000 IF A = 29 OR A = 20 OR A = 2? ÜR A = 34 OU A = 35 
TUEN GOTO 9100 
9090 LET A(A) = 1 

9100 NEXT A 

9105 DIM Y(2) 


9110 FOH A = 43 TO 52 

9120 IP A = 47 OH A = 48 THEN GOTO 9140 

9130 LET A(A) = 0 

9140 NEXT A 

9150 POR A = 56 TO 72 

9160 IF A = 60 OR A = 61 ÜR A = 66 ÜR A = 6? OH A = 60 
TUEN GOTO 9100 

9170 LET A(A) = 9 

9160 HEXT A 

9190 PRINT 

9200 PHINT "DARF ICH ZUERST '' 
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9120 FlilHT /'ZIEHEN? (J/N) " 

9220 INi'UT P;/i 

9230 IK P0 = "J" Tlili.'N GOTO 2000 

9240 GOTO 20 


-Ascot- 

Fünf kleine Pferde, die überzeugend als Buchstaben A bis 
E getarnt sind, laufen den 4K-Bildschirm hinauf und wie¬ 
der hinab. Wenn die Ziellinie erreicht ist, bleibt das Bild ei¬ 
ne Zeitlang stehen und zeigt die Pferde sowie die Punkte, 
die jeder Reiter für seinen Reitstil erhält. Sobald Sie die Er¬ 
gebnisse gelesen (und die Gewinne von Ihren Freunden 
kassiert) haben, wird das Bild automatisch wieder »leben¬ 
dig«, und ein neues Rennen ist im Gange. Dieses Pro¬ 
gramm ist ein interessantes Beispiel für Graphikzeichen, 
die über den gesamten Bildschirm gehen, 

(Anmerkung: Zeilen 10 bis 130 sind das »Vctsey movlng 
display« (Vasey's bewegte Bildschirmanzeige), die in eini¬ 
gen weiteren Programmen dieses Buchs verwendet wird. 
Die erste POKE-Adresse in Zeile 30 sollte bei 4K- 
Programmen wie angegeben 190 0 0 sein. Die Routine 
ist urheberrechtlich geschützt C P Vasey 1981 und darf we¬ 
der zum Verkauf oder zur Veröffentlichung angebotenes 
Produkt oder Programm noch als Teil eines solchen ver¬ 
wendet werden.) 


10 HEH üDE006GDG205012001D9CDC205lB03CDAD010608i0FE2A1E4023 

221E407CDE00C823DBPB3E38322340065E10PED3FE3EEC0619ZA 
0C40CBPCCDAD013ßF5042BFD552316CA 
20 FOR A - 0 TO 67 

30 POKE 19000 + A, 16»(PEEK(16427 + 2''A) -28) + PEEK 

(16428 4 2«A) - 28 

40 NEXT A 

50 GOTO 9000 

100 POKE 16414 . T 

110 PORE 16415. 255 

120 LBT XX -.USR(19000) 

130 RETURN 

300 LET A = A - 1 4 I«1D(2) 

310 POKE 33*AB3(A - 18) 4 10 + PEEK(G) 4 PEEKfH)»256,38 
330 LET B » B - 1 4 BND(2) 

340 POKE 33»ABS(B - 18) 4 13 4 PEEK(O) 4 PEEK(H>»256,39 
350 LET 0 «• C - 1 4 RND(2) 

360 POKE 33»ABS(C - 18) 4 I 6 4 PEEK(G) 4 PEEX(H)»256,40 
370 LET D o D - 1 4 HN0(2) 

380 POKE 33*AB3(D - 10) 4 19 4 PEKK(a) 4 PEa((H)»256,41 
390 LET E - E - 1 4 HND(2) 

400 POKE 33*ABS(B - 10) 4 22 4 PEEKfO) 4 PEEK(H)»256,42 
410 GOSUB 100 

2000 IP A > 35 OR B > 55 OH G> 35 OR D > 35 OR B > 35 TUEN 

GOTO 9500 
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30100 POKE 33*ABS(A - 18) + 10 + PEEK(a) + PB;FX{H)»256,1 ?8 

3010 POKE 33*ABS(B - 18) + 13 + PEEK(a) + PEEK(H)«256,128 

3020 POKE 33*AB3{C - 18) + 16 + PEEK(a) + PEEK{n)«256,120 

3030 POKE 35»AB3(D - Iß) + 19 ♦ PEEK(a) + PEEK{M)"256,120 

3040 POKE 33«A8S(B - 16) + 22 ♦ PEEK(G) + PEEK(H)«256,120 

3050 GOTO 300 

9000 LET XX = 0 

9005 CLS 

9010 LET A = 1 

9015 LET B * 1 

9020 LET C - 1 

9025 LET D = 1 

9050 LET E » 1 

9035 LET 0 16396 

9040 LET H = Q + 1 

9045 LET A0 = cnR0(l28)jCHR0(l28);CHH0(12O)}CHH0(l2B) 

9050 LET T - 240 

9060 FOR F = 1 TO 10 

9070 PRINT "shiftA 53pace8 * A0; A0; A0; A0; 5apflees ahiPtA 

9080 NEXT P 

9090 GOTO 300 

9500 PRINT ,"DAS RENNEN IST AUS1 

9510 PRINT " 1 1 ;II. j;. ENDERGEBNIS: A ";A;" ^ « d * ";H 

9520 PRINT ,"0 * * Jl. j;. D * ";D; * E • "jK ~ 

9525 LET T = 0 

9530 GOSUB 100 

9550 HUN 9000 


--Anti-Galgen- 

Dies ist wie Sie aus dem Namen gefolgert haben, ein um¬ 
gekehrtes GALGEN-Spiel. Sie denken sich ein Wort aus, 
und der Computer versucht, es zu erraten. Zu Beginn fragt 
der Computer, wieviele Buchstaben das Wort hat Dann 
erscheint ZEICHEN? aut den Bildschirm. Geben Sie das Zei¬ 
chen ein, das Sie für freie Stellen in Ihrem Wort verwen¬ 
den wollen (+, *, • oder was immer). Dann rät der ZX80 
einen Buchstaben. Kommt dieser Buchstabe in Ihrem 
Wort vor, dann geben Sie die Stellung des Buchstabens 
im Wort an. Das heißt wenn ihr Wort RPPE lautet und der 
Computer rät »E«, geben Sie »5« ein. Ist der Buchstabe 
falsch, geben Sie »0« ein. Nach jedem richtigen Buchsta¬ 
ben wartet der Computer so lange, bis Sie »0« eingeben, 
damit Doppelbuchstaben zu berücksichtigt werden, 
Wenn er also aut »P« gekommen ist antworten Sie mit »3«, 
NEWLINE, »4«, NEWLINE, »0«. Dieses Spiel macht großen 
Spaß, und Sie werden feststellen, daß der ZX8I eine viel 
größere Chance hat Ihr Wort aut zehnmal zu erratea 
wenn Sie sich ein langes Wort ausdenken, 


10 REM BTAONRISHDLFCMUOYPHBJKQXVZ 

20 LET L » 10 

30 PRINT "WORTLAENGE? '* 

40 INPUT K 



PRIWT "ZEICHEN?" 

INPUT 

LET Q «= CODB(Qjl) 

DIH A(26) 

DIH C(N) 

DIM a(N) 

FÜR Z = 1 TO 26 

LET A(Z) . PBEK (I 6426 + Z) 

IP Z < H 4 1 THEH LET 0(2) = Q 
HEXT Z 

LET Z * RND(5) 

LBT = CHRJJ (A(Z)) 

FOR J = Z TO 25 
LET A(J) = A(J 4 1) 

HEXT J 
LET A - 0 
CL3 


PRINT , 

FOR Z = 1 TO B 
PRINT CHR0(O(Z))| 

HEXT Z 

PRIHT 

PRIHT 

PRIHT ,fLEBEN="jL 
PRIHT , " ICH RATE A 0 
IHPUT B 

IP B » 0 THEH OOTO 550 
LET A = 1 

LET a(B) » CODR(A0) 

GOTO 210 

LET P * 0 

FOR Z « 1 TO H 

IF 0(Z) - Q THEH LET P 

HEXT Z 



1 


IF F = 0 TUEN PRINT ," ICH GEWINNE ** 


IF F = 0 TREU STOP 
IP A » 0 THBN LET L = L - 1 
IP L > 0 TH01 OOTO 150 
PRIHT ,"S1E GEWINNEN" 
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-Schneckenrennen- 

Vier Schnecken kriechen (immer schneller) von rechts 
nach links über den Bildschirm. Sie tragen Nummern out 
dem Rücken, Eigentlich ist es nicht gaiiz so, ober Sie wer¬ 
den sehen , was wir meinen sobald Sie das Programm 
laulen lassen. Wenn Sie unternehmungslustig sind, kön¬ 
nen Sie kleine Autos oder was immer verwenden und 
wenn Sie mehr als IK haben können Sie das Programm 
leicht aut acht oder mehr Schnecken oder Fahrzeuge er¬ 
weitern, 

ZEILEN 10 bis 40 Vasey's bewegte Bildschirmanzeige. Die 
erste POKE-Adresse in Zeile 30 ist 17270, 


50 GOTO 200 

100 POKE 16414 f 

110 POKE 16415» 255 

120 LET XX = USR(17270) 

130 RETUHN 

200 LET C = 0 

210 LET E « 0 

220 LET P = 0 

230 LET D » 0 

240 LET C » C + RHD(3) - 1 

250 LET D - D + RND13) - 1 

260 LET B = E + nND{3) - 1 

270 LET P = F + RNDÖ) - 1 

200 FOn A =. 1 TO 28 - C 

290 PHINT " t 

300 NEXT A 

310 PRINT "ahiftT 1 shiflA" 

320 PRINT 

330 FOn A = 1 TO 28 - D 

340 PRINT " i "I 

350 NEXT A 

360 PRINT "BhlftT 2 shiftA" 

370 PRINT 

380 FOR A = 1 TO 28 - E 

390 PRINT " "j 

400 NFDCT A 

410 PRINT "ahiftT 3 shiftA" 

420 PRINT 

430 FOR A » 1 TO 28 - F 

440 PRINT " * 

450 NEXT A 

46j0 PRINT "ahiftT 4 ahlftA" 

470 IF B > 26 OR D> ?6 OR C > 26 OR E> 26 TUEN STOP 

480 OOSUB 100 

490 CLS 

500 GOTO 240 
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-Einarmiger Bandit- 

Dieses IK-Progromm simuliert einen Geldspielautomaten, 
der genauso funktioniert wie die, die in Kneipen herum- 
stehen, außer daß das gewonnene und verlorene Geld 
nur in den ZX80 Variablenspeicher geht, Die Auszahlung 
erfolgt mit ungefähr der gleichen Häufigkeit wie bei ei¬ 
nem echten Automaten, Der Trommelinhalt und die Be¬ 
dingungen, unter denen er ausgeschüttet wird, sind in 
der REM-An Weisung Zeile 10 gespeichert. Es ist wichtig, 
das Programm genau wie aufgelistet einzugebea damit 
nicht ein komischer Automat dabei herauskommt. Der 
Jackpot ist die mittlere der drei Trommeln und zahlt aus, 
wenn in beliebiger Richtung drei in einer Reihe erschei¬ 
nen außer bei BAR, Sie müssen für jedes Spiel bezahlen, 
Drücken Sie »0« und dann NEWLINE, um den Griff zu zie¬ 
hen. Wenn die HALTE-Option kommt, geben Sie die Num- 
meT(n) der Trommel(n) ein, die HALTEN sollen, mit jeweils 
einen NEWLINE zwischen den Nummern, und dann »0«. 
um den Automaten wieder in Gang zu setzen, 


^0 REH XCHERRYLEMON..PLUM,ORANGE'‘BELL»(J0000(?111111 

2222223333344 
20 DIM A{8) 

30 DIH H(5) 

40 LEI* ^ = 200 

50 LET B = 0 

60 FOR Z = D TO 5 

70 LET H(Z) = 0 

00 NEXT Z 

90 FÜR Z = 0 TO 0 

100 JF H(Z - 5»(Z/3)) = 1 tuen goto 120 

110 LET A(Z) = PEEK(16457 ♦ RND{25))- 20 

120 IP A(Z) = 4 TREH LET H( Z - 3*<Z/3) + 3) = 1 

130 HEXT Z 

140 LET W » 0 

150 IF A(3> - A(4) THrai LKT W = 10 

160 IF A(4) =. A(5) AND W = 10 THE2^ LET W = 10«A(3) + 10 

170 IF H(3)'‘1K4)*H(5) = 1 TUEN LFT W = 100 

180 LET A = A + W - 5 

190 FOR Z - 0 TO 2 

200 LEI’ H(Z) » 0 

210 HEXT Z 

220 LET K = 0 

230 IF A < 60 4 RNü(280) THEN LET H = 1 

240 CL3 

250 PRIHT 

260 FOR Z = 0 TO 8 

270 PRINT " i "J 

200 FOR J « 2 TO 7 

290 PRINT CHR0(rEEK(l6426 + 6*A(Z) ♦ J)s 

300 HEXT J 

310 IF 3*((Z ♦ 1)/5) * Z + 1 THEH PRINT 

320 IP 3*((Z + 1)/3) = Z + 1 THEH PRIHT 
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530 HEXT Z 

340 PRINT 

350 FOn Z = 0 TO 2 

360 IF H(Z) « 1 THEN PRIHT '• GEHALTEN"| 

370 IF H(Z) = 0 THEN PRINT "gapaces"; 

3B0 HEXT Z 

390 FOR Z = 1 TO 5 

400 PRINT 

410 HEXT Z 

420 IF W > 0 THEN PRINT .«ZAHLT "jW 
430 PRINT ,"SIE HABEN JETZT"}Aj ”P" 

440 IF H = 1 TUEN PRINT "HALTEN ODER 
450 PRINT "starten" 

460 INPUT N 

470 LET B « 3 

480 IP H»N = 0 THFH GOTO 60 

490 LET H(N - 1) = 1 - H(N -1) 

500 GOTO 240 


-Craps- 

Dieses Spiel bezeichnet Skip Fiey in seinen Buch »The 
Complete Book oi Dice Games« (Alle Würfelspiele) als 
»das erste Würfelspiel«. Laut Mr. Frey »spielt man es über¬ 
all, vom Hinterhof bis zu den piekfeinen Kasinos in Las 
Vegas und Monte Carlo«. Trotz dieser glühenden Be¬ 
schreibung kann es — mit einem Computer gespielt — 
ganz schön langweilig weiden. Schließlich besteht das 
Spiel darin, zu würfeln, und wenn Ihr guter alter ZX80 
das erledigt, bleibt für Sie nicht mehr viel zu tun. Deshalb 
haben wir das Programm ein wenig ausgebaut, damit 
Sie nicht während des Spiels einschlafen. Bei diesem 
Craps-Programm erhalten Sie ein Startkapital von 20 DM, 
dos sich je nach Ihrem Würfelglück vergrößert oder ver¬ 
kleinert. 

CRAPS-AUSDRÜCKE: 

TREFFER 7 oder 11 beim ersten Wurf ist ein TREFFER. 

Mit einem solchen Wurf haben Sie gewon¬ 
nen. 

CRAPS 2,3 oder 12 beim ersten Wurf nennt man 
CRAPS. Mit einem solchen Wurf haben Sie 
verloren. 

AUGENZAHL 4, 5, 6, 8, 9 oder lO beim ersten Wurf wird 
Ihre AUGENZAHL. Im Programm ist die 
Variable E Ihre Augenzahl. 

Wenn Sie weder einen TREFFER noch CRAPS gewürfelt 
haben, würfeln Sie weiter, bis Sie wieder Ihre Augenzahl 
würfeln. In diesem Spiel gewinnen Sie einen Betrag von 
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25 DM, wenn Sie Ihre Augenzahl würleln (siehe Zeile 
270). Wenn Sie aber, und das ist ein großes Aber, wenn 
Sie eine 7 werfen, ehe Ihre Augenzahl kommt verlieren 
Sie (Zeile 120). Das Programm zieht Ihnen 3 DM ab sowie 
für jeden während des Spiels durchgefühlten Wurf 1 DM. 
Solange Sie ein Spiel mit 1 DM oder mehr beenden, bietet 
Ihnen bei diesem IK-Programm der ZX80 ein weiteres 
Spiel an. 


5 LET M B ?0 

ijÜ LET A » 0 

20 LET E = 0 

30 PRTNT ,"Jl/L DRUECKEN ZUM WUERFELN*^ 

40 INPUT A0 

50 GÜ31IB 320 

60 LET B = RNU( 6 ) 

70 LET G = RND( 6 ) 

00 LET n - B » G 

90 LRT A = A + 1 

95 TF A = 6 THEN CLS 

97 IF A = 6 THEN LET A = 2 

100 IF A = 1 THEN GOTO 150 

110 IF Ü = E THEN GOTO 270 

120 IF D = 7 tuen goto 300 

130 phint'Die wuerfel"5Bj" ";c,«ergeben "jD 

140 GOTO 40 

150 IF D = 7 OR D = 11 TUEN GOTO 190 

160 IF D < 4 OR D * 12 THEN GOTO 210 

170 LET E = D 

100 GOTO 130 

190 PRINT «SIE WUERFEITEN "jD}« _UND GEWINNE# 

195 LRT H - H 4 5 ♦ A 

200 GOTO 220 

210 PRINT "IHR PECH, MIT "jDj" VERLIEREN SIE« 

220 PRINT "SIE HABEN "jM 

222 IF M < 1 THEN STOP 

225 PRINT ,,,,,"NOCH EIN SPIEL?" 

230 INPUT A0 

240 CLS 

250 IF NOT A0 = "N" 'niEH GOTO 10, 

260 STOP 

270 PRINT "DIESMAL HABEN SIE "jO 

280 LET M = M + 5 4 A 

290 GOTO 220 

300 PRINT «BLOEDMANN, VERPATZT MIT "jD 

305 LET M = M - 3 - A 
310 GOTO 220 

320 FOR F = 1 TO 100 

330 HEXT F 

340 RETURN 



-Ungomoku- 

Diese Version des angeblich orientalischen Spiels GO- 
MOKU haben wir UNGOMOKU genannt weil es nicht 
besonders ^t spielt (das ist ein wenig tiefgestapelt!). 
Es ist jedoch ein interessantes Spiel, bei dem sowohl Spiel¬ 
brett als auch Spielstand in einer REM-Anweisung ge¬ 
speichert sind, die sich entsprechend dem Spielverlauf 
ändert. Das Ziel ist bei diesem IK-Spiel (mit altem ROM, 
bei Maschinen mit neuem ROM benötigt man mehr 
Speicher), entweder waagrecht senkrecht oder schräg 
eine Fünferreihe zu bilden. Das Programm hat keine Ein¬ 
richtung, um den Computer erkennen zu lassen, wann 
das Spiel aus ist oder wer gewonnen hat 
Sie können das Spiel jederzeit mit einem »X« beenden, 
wenn der Computer Ihren nächsten Zug anfordert. An¬ 
sonsten geben Sie laut nachstehendem Schlüssel die 
Nummer des Feldes ein, auf das Sie Ihren Stein setzen 
wollen. Wenn Sie sich lange genug mit dem ZX80 ge¬ 
messen haben, können Sie das Spiel in AUTOUNGOMO- 
KU umwandeln, indem Sie Zeile 20 . löschen, Zeile 150 
verändern in LET A = RND(49) und Zeile 140 in LET C = 
RND(10), Dann fügen Sie hinzu; 175 INPUT A$. Kontrollieren 
Sie das Brett nach jeweils zwei Zügen und lassen Sie den 
gewinnen, der als erster eine Dreierreihe in beliebiger 
Richtung zustandebringt. 

Schlüssel für die Züge; 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


REH (49 mal "S" DRUECKEN) 
RANüOMISE 

pon E = 164Z7 Tü 16475 

piaw’f E, 10 

MEXT E 

LET D =. 0 

PRIMT 

I’HINT 

PRINT , 

FOR E = 16427 TO 16475 
I,ET D = D f 1 


20 

50 

40 

50 

60 

70 


90 

100 

110 
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170 PniNT CHRi5(PEEK(B))| •' • 

130 IF 7*(li/7) = D THEN PHInT ,,,,,,, 

140 WEXT B 

150 INPUT A 

160 IF A < 1 On A >49 OR HOT PBEK(16426 -f A) = 18 
THEH GOTO 150 

170 POKE 16426, 180 

180 CLS 

190 LET Z = 0 

200 LET C - ~ 2 + RND(3) 

210 LET P = Z + 16426 + A « C 

220 IF NOT PEim(F) = 18 THSN LET Z = Z + 1 

230 IF Z = 1 TUEN LET A * A ♦ 7 - C 

240 IF Z - 2 THEN LET A - A - 8 

250 IF Z - 3 THEN LET A - A + 2 

260 IF Z = 4 THEN LET A « A + 8 

270 IF Z > 4 THEN GOTO 190 

200 IF Z > 0 THEN GOTO 220 

290 IP A 4 C < 1 OR A 4 0 > 49 THEN GOTO 190 

300 POKB F, 189 



-Boogie Woogie- 

Dieses IK-Programm enthält eine Art Leiterspiel aul einem 
Brett mit 24 Feldern, Sie würieln um die Zahl der Felder, 
die Sie vorrücken dürfen, 

10 DIM A(2) 

20 RANDOMISE 

30 LET A(1) = 0 

40 LET A(2) = 0 

50 KOK Z = 1 TO 2 

60 G03UÜ 1000 

70 IF J < 0 THEN LET J = 0 

80 PRINT •'SPIELER_ "jZ;",ihr WüERFEL ZEIGT "jJ 

90 PHINT “SIE SIND NUN AUF ";A(Z) 

100 FOR W = 0 TO A(Z) 
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111« PRINT CKn2(128);CHR;g{129){"3hiftA"j 

120 NliXT W 

130 PHIHT 

140 PRINT 

130 NflXT Z 

160 IF A(1)>23 OR A(2) > 23 TllbJI GOTO 200 

170 INf'UT M 

180 GL8 

190 GOTO 50 

200 CI.S 

210 PHINT "SPIELER -1 • (A (1) > A (2) ) - 2’'(A{2)> A(1))} 

" SIEGT MIT« 

220 PRINT ,ABS(A(1) - A(2))«173;'' PUNKTEN” 

230 POKE 16421 , 24 

240 STOP 

1000 FOn 0 = 1 TÜ RND(25) 

1010 LFJT J = RND(6) - RND{2) 

1020 nvXT G 

1030 LET A(Z) * A(Z) 1 J 

1040 IFVA(Z) = 5 OR A(Z) = 17 TUEN GOTO 1000 
1050 LFP Y - -4*(A(Z) - 2 OH A(/)- 14) + 2“(A(Z) - 3 OH A(Z) 
= 15) t 3«{A(Z) = 4 OH A(Z) = 16) + 

(A(Z) = 7 OH A(Z) = 19) ♦ (HND(4))« 

(A(Z) - 10 OH A(Z) = 22) 

1060 LKT A(Z) = A(Z) + Y 

1070 IF A(Z) < 0 TURN LKT a{z) 0 

1080 RETUHN 


-Belagerung- 

Dieses recht Irustiierende Spiel setzt den IK-Speicher eines 
ZX80 mit altem Rom sehi rationell ein, Sie sind ein Soldat 
(eigentlich sind Sie der Buchstabe X, aber das hier ist ein 
ZX80 und kein IBM HORROR 2017), der versucht, feindli¬ 
ches Armeegebiet zu durchqueren (der versucht, von der 
rechten auf die linke Bildschirmseite zu gelangen), ohne 
auf einen Feind zu treten (schwarzer Fleck) oder zufällig 
mit einem zusammenzustoßen. Aber dieses Spiel können 
Sie nicht gewinnen. Kaum haben Sie das Feindgebiet 
hiriter sich, werden Sie schon wieder auf Ihren Ausgangs¬ 
punkt zurückgeworfen, um Ihren unermüdlichen Marsch 
durch eine ständig zunehmende Feindesschal erneut 
autzunehmen. Wenn es Sie endlich erwischt, erhalten Sie 
eine Punktzahl je nachdem, wie lange Sie überlebt ha¬ 
ben. Alles über 132 ist sehr gut. Mit »7« und anschließend 
NEWLINE gehen Sie nach oben, mit »6« nach unten und 
mit »5« vorwärts. 

10 OOSUB 190 

20 IP PEFK (C''35 4 D 1 4 PEEKtZ) 4 PEEK (Z 4 1)»256) = 6l 
OH PEEK (Y»33 4 X 4 1 4 PEEK(Z) 4 PEEK (Z 4 1) 
«256) = 128 TRIUN GOTO 170 

30 POKE Y«33 4 X 4 1 + PEE-KtZ) 4 PEBKfZ 4 1)«256, 6l 

40 POKE C«33 4 D 4 1 4 PEEK(Z) 4 PEEK{Z + 1)»256, 128 
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50 

IN1‘IIT A0 



60 

Lfi-T K = K + 1 



70 

POKE Y*53 + X + 1 

1 4 PERK(Z) + rEEK(Z + 1)*256, 

B0 

IF A0 = "5" TUEN 

LKT X = 

X - 1 

90 

IF A0 = "T" THEH 

LEI’ Y = 

Y - 1 

100 

IF A0 == "6” THliH 

LET Y = 

y 4 1 

110 

LET U = nNfj(O) 



1?0 

LBT D = HNDr50) 



150 

IF X < 2 TUEN LET 

X = 31 


1-10 

IF Y< 2 THJ-rN LET 

Y = 2 


150 

IF Y > 9 TilEH LRT 

Y = 8 


160 

GOTO 20 



170 

PRINT "IHRE PUNKTE: ";K 


100 

STOP 



190 

FOR J = 1 TO 10 



200 

PRlHT ,,,, 



210 

NEXT J 



220 

LFH' X = 51 



230 

LFTT 'i ^ 2 



240 

LET Z = 16396 



250 

LET C = 1 



260 

LET D = 1 



270 

RETURN 




--Kampf- 

Bei diesem Spiel steht Ihre Geschicklichkeit gegen fünf 
schwarze Räubergestalten. Bei Spielbeginn werden Sie ~ 
und die lästigen schwarzen Gestalten — nach dem Zu- 
tallsprinzip innerhalb einer Umrandung auf dem Bild¬ 
schirm aulgestellt. Sie bewegen sich, indem Sie einen 
Buchstaben eingeben (»N« für Norden, »S« für Süden, 
»O« für Osten, »W« für Westen oder »Q«, falls Sie das Spiel 
beenden wollen). Wollen Sie in gleicher Richtung weiter¬ 
gehen, brauchen Sie nur NEWLINE zu drücken, wenn 
die Eingabe-Aullorderung kommt. Eine der schwarzen 
Gestalten bewegt sich jeweils. Sie sind das Dollarzeichen 
($) und sollen versuchen, carf die schwarzen Gestalten 
zu springen und sie damit alle auszulöschen ehe die 
Ihnen zur Verfügung stehenden 20 Bewegungen aufge¬ 
braucht sind. 

Wenn Sie allerdings in die Nähe einer Gestalt kommen 
laufen Sie Gefahr, daß diese auf Sie springt. Wenn das 
passiert, ist das Spiel im allgemeinen aus. Sicher sind Sie 
so lange, wie Sie über drei Felder von einer Gestait ent¬ 
fernt sind. 

Ihre Punktzahl erscheint links von der Umrandung (die 
obere Zahl), während die untere Zahl Ihre Bewegungen 
abzählt (es wird nur die letzte Ziffer angegeben). Das 
Spiel wird dadurch erschwert daß die ausgelöschten 
Gestalten nicht wegbleiben wollen und irgendwann 
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wieder cruftauchen, um Sie zu plagen. Wenn eine Gestalt 
auf Sie gesprungen ist sind Sie — wie schon gesagt — 
im allgemeinen erledigt, aber eine wohlwollende Pro¬ 
grammzeile (910) läßt Sie von Zeit zu Zeit entkommen. 
Noch schwieriger wird es dadurch, daß ein Programmier¬ 
trick Sie hin und wieder vom Bildschirm verschwinden 
läßt so daß Ihre nächste Bewegung »blind« erfolgen 
muß. Bei der darauffolgenden Bewegung werden Sie 
jedoch wieder sichtbar, außer wenn Ihnen etwas passiert 
ist 


10 - 1'i0 VASEY MOVINQ MSPLAY (A = 19000, line 50 GOTO 220) 
200 POKE Y » 33 * X 4 1 ♦ FEl!3C(l6396) + PEEK {l6397)*256, K 
210 RETURN 

220 r.ET XX = 0 

230 GOTO 9000 

400 PRINT "RICHTUNG? IN S O WJ " 

500 LET' Y = 11 

502 LET HOVE = MOVE + 1 

505 IF MOVE = 20 TUEN LET T = 0 

504 IF MOVE = 20 THtU G03UD 100 

505 IF MOVE = 20 TUEN GOTO 9500 

510 LET X = 3 

520 LET K = CODE(STR0(3I))+ 120 

550 G03UB 200 

560 LET Y = 13 

570 IF MOVE<10 TUEN LET K = CÜI)E(3TR0(MOVE)) + 128 

575 IF MOVE >9 THEH LET K = CODEfSTRÄfHOVE - $)) + 128 

500 G03UB 200 

600 INPUT P0 

603 IF B0 = TUEN LILT B0 = 0$ 

604 LET Y = A 

605 LET K = 0 

606 LET X = B 

607 G03UB 200 

608 IF = "4" TUEN STOP 

610 IF Bg = "N" TUEN LET' A = A - 1 

620 IF B0 = "3" TUEN LET A = A + 1 

630 IF B0 = "0" TH EN LEf B * B 4 1 

640 IF Bg = "W" TUEN LET B = B - 1 

650 IF B <■ 9 TUEN LET B = 9 

660 IF B>21 TUEN LET B = 21 

670 IF A < 0 TUEN LET A = 8 

675 IP A >20 TflEN LET A « 20 

680 Für G = 1 TO 5 

681 IF Y(C) = A AND X(C) = B THEH LET 31 = SI + 1 

685 HEXT C 

690 LET Y = A 

695 LET Cg = A0 

700 LET X = B 

705 LET K = 13 

710 GOSUB 200 

715 GOSUD 100 

720 LET E = RMD(5) 

730 LET K = 0 

740 LET Y = Y(E) 

750 LET X - X(E) 

760 OOSÜB 200 
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790 LET Y(E) « Y(E) + R>ID(3) - RWD(3) 

600 LET X(E) = X(E) + RND(3) - RND{3> 

010 IF Y(E)<9 TUEN LET Y{E) =9 
820 IF Y(E) > 16 TUEN LET Y(B) = 16 
830 IF X<B)< 9 TUEN LET X{E) = 9 

840 IP X(E)> 20 TUEN LET X(E) « 20 

B50 LET Y = Y(E) 

860 LET X - XIE) 

870 LET K = 120 
880 QOSUB 200 
690 QOSUB 100 
900 FOn C = 1 TO 5 

910 IF Y(C) = A AND X(C) - B AND RND{3) = 1 ‘niBN 
920 HEXT C 

930 OOTO 500 

9000 DIH Y(5) 

9005 LET SI = 0 

9010 LET HOVE = - 1 

9015 LIM X(5) 

9020 LET C0 = "E" 

9025 LET T - 240 
9030 FOR A - 1 TO 5 
9035 PRINT ,,,, 

9040 NEXT A 

9050 PRINT ,”(15 ahirt W)”,, 

9060 FOR A = 1 TO 12 

9070 PRINT , "(shlft Q 13 flpacea)”;CHR0(130),, 
9080 QOSUB 100 
9090 N EXT A 

9100 PRINT ,”(15 Bhlft 0)",, 

9110 PRINT 

9115 LET K = 128 

9120 FOR A - 1 TO 5 

9130 LET Y(A) - 7 + RND(10) 

9140 LET X(A) » 8 + nND(12) 

9142 LET Y = Y(A) 

9145 LET X = X(A) 

9150 GOSUB 200 

9160 OOSUB 100 

9170 NEXT A 

9180 LEr A = 7 + nND(10) 

9185 LET Y = A 

9190 LET B *= 8 + RND(12) 

9200 LET X = B 
9210 GÜSUD 200 
9220 GOTO 490 


9500 

9505 

9510 

9512 

9515 

9517 


FiUNT "DER KAMPF IST VORBEI^ 
PRINT 

FiUHT "PUNKTE ";SI 

PIUNT ,"1N "jHOVE;" BEWEGUNGEN* 

PRINT 


GOTO 9500 
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-Tödliches Spiel- 

Dieses IK-Programm ist im Grunde Russisches Roulette 
für drei Personen, Geben Sie drei Namen ein und legen 
dann Ihr Leben und dos Ihrer Freunde in die Hand des 
SINCLAIR-Zufallszahlengenerators. Wenn Sie mehr Spei¬ 
cher haben, können Sie dos Spiel leicht tür eine gesamte 
Fußballmannschaft erweitern. 


10 RAHDOMISE 

20 LET EJ< = " ÜBERLEBT" 

30 PRINT “NAME SPIELER 1? " 

40 INPUT A0 

50 PRINT ,"UND 2?“ 

60 INPUT B0 

70 PRINT »"UND 3?“ 

00 INPUT Gi 

90 LET Z = 0 

100 CLS 

110 LET Z = Z 4 1 

120 PRINT 

130 PRINT ,"ABDRUECKEK MIT NEWLINE •• 

140 INPUT D0 

150 PRINT 

160 PRINT 

170 PRINT A0, B0, 00 

100 PRINT 

190 IF A0 = "" THEN GOTO 240 
200 LET A - nNl)(10) 

210 IF NOT A 5 TURN PRINT ’'CI,TCK"s 
220 IF A 5 TUEN PRINT “PENG"; 

230 IP A = 5 TUEN LET A0 = "" 

240 IF Ri = "" TUEN PRINT , 

250 IF B0 = "" TUEN GOTO 300 

260 LET R = nNÜ(10) 

270 IP NOT B ^ 5 TUEN PRINT."CLICK”; 

200 IF B = 5 THEN PRINT /'PENG"; 

290 IF B = 5 TUEN LEI’ B0 = "" 

300 IF C0 = "" TUEN GOTO 350 
310 LET C ^ RND(10) 

320 IF NOT C - 5 TUEN PRINT /'CLICK" 

330 IF C = 5 TUEN PIUNT /'PENG" 

340 IF C = 5 THEN LR“!' C0 - "" 

350 PRINT 

360 PRINT 

370 IF A0 = "" AHO - "" 'niRN PRTMT C0;E0 

380 IF M = AND Ci = "" THEN PRINT BZ;E0 

390 IF Bi = AND Ci = "" TUEN PRINT A0;E0 

400 IF (CO1)E(A0) 4 CODE(B0) » 2) OR (CODE (A0) 4 CODE(C0) = 2) 

OF (CODE (D0) 4 CODE(C0) = 2) TUEN STOP 

410 PRINT 

420 PRINT ,"DAS IST RUNDE NR.'*jZ 

430 INPUT 7,i 

440 GOTO 100 
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-Bermuda-Dreieck- 

Dieses 4K-Progicn:im eignet sich ausgezeichnet dazu, 
»maschinelle Intelligenz« vorzuführen. Bermuda-Dreieck 
macht Anleihen bei Schach und Dame ... und natürlich 
auch bei jenem bekannten Urlaubsort wo Menschen, 
Flugzeuge und Schiffe auf geheimnisvolle Art verschwin¬ 
den. Sie können auf einem dreieckigen Brett in beliebi¬ 
ger Richtung um ein Feld ziehen, Dazu geben Sie die 
Koordinaten des Feldes ein, von dem Sie ziehen (z.B. B4), 
NEWLINE, und dann die Koordinaten des Zielfeldes 
(z.B. B3). Wenn die Bildschlrmanzeige wieder erscheint 
sehen Sie die Figur auf ihrem neuen Platz (Ihnen gehört 
der Buchstabe »O«) und den Gegenzug des Computers 
(ihm gehört das »X«), Sie schlagen gegnerische Figuren, 
indem Sie sich daraufsetzen. Sieger ist wer zuerst vier 
gegnerische Rguren geschlagen hat, Obwohl es einige 
Zeit dauert bis das Brett bei Spielbeginn aufgestellt ist 
ist die Reaktionszeit des Computers sehr kurz. Wenige 
Züge sollten über 20 Sekunden dauern, und die meisten 
liegen darunter. 



10 

OOSUB 9000 

500 

CL3 


1000 

FRINT 


1010 

IP SI 

= 4 THHJI LET Q - 1 

1013 

IP SM 

= 4 TH PH LET Q =» 2 

1015 

PRINT 

"T3RGEBNIS ICH "jSI, "SiE i " 5 SM 

1020 

rniNT 


1030 

PRINT 

,CHR0(1?B)!UimJU 12fl) 

10 <t 0 

POH X 

= 0 Tü 7 

1050 

PRINT 

,CHH0(X + l66);CHn2(l28}; 

1060 

PUR J 

* 0 TO X 

1070 

PRINT 

(;UR 0 (A (00 - g^x - J)); 
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10H0 NEXT J 

109tJ PRINT CHH/(l2a) 

1100 NEXT X 

1102 PRINT ,C1JH0(12B); 

1105 FOH J - 0 TO 8 

1106 IF J = 0 TUEN PniNT {;HR0(128)j 

1107 IF J > 0 TUEN PRINT CHn0( J + 156)j 

1108 NiaCT J 

1109 PRINT GI1R0(128) 

1115 PRINT , 

1120 FÜR J = 1 TO 11 

1125 PHINT CHR0(128); 

1127 NEXT J 

1128 PRINT 

1150 IP' y = 17 TUEN PRINT ," ICH GEBE AUF'* 

1135 IF Q » 1 TUEN PHINT GEWINNE* 

1137 IP Q = 2 TUEN PRINT ,,,"SIE GEWINNEN" 

1140 ir Q > 0 TUEN STOP 

1150 PRINT 

2000 IF C0 > "" THEN PHINT "IHR LETZTER ZUG WAR NACH";C0 

2010 PRINT "DIESER ZUG? 

2012 VON? {BUCHSTABE, ZAHL)'^ 

2015 INPUT A0 

2020 IP A0 - "S" THEW STOP 

2040 PRINT A0J "NACH? (BUCHSTABE, ZAHL)’» 

2050 IHPUT B0 

2060 LET C0 = B0 

2070 LET Ü(1) * 451 - 9*CODE(A0) - GODE{ TL0( A0)) 

2080 LET 0(2) = 451 - 9*CODE(B0) - CODE(TL0(B0)) 

2090 IF A(a(2)) - 189 THEH LET SM = S« 4 1 
2100 LET A(Q(1)) = 150 

2110 LET A(0(2)) - 180 

3000 REM COMPUTERZUEGE 

3010 LEP X 0 

3020 FOR Z = 10 TO 80 

3025 IF NOT A(Z) = 189 THEN GOTO 3130 

3050 IF A(Z + 9) - 180 THEN LET X » 9 

3040 IF X = 0 AND A(Z + 8) - 180 THEN LET X = 8 

3050 IF X = 0 AND A(Z - 8) = 100 THEN LET X = -8 

3060 IF X - 0 AND a(z + 10) = 180 THEN LET X « 10 

3070 IF X = 0 AND A(Z - 10) » 180 THEN LET X = -10 

3000 IF X = 0 AND A(Z - 9) » 100 THEN LET X * -9 

3090 IF X = 0 AND A(Z + l) « 1B0 THEN LET X = 1 

3100 IP X « 0 AND A(Z - 1) * 180 THEN LET X = -1 

3120 IP NOT X = 0 THEM GOTO 3150 

3130 NEXT Z 


3140 IF X = 0 THEN GOTO 3180 
3150 LET A(Z) = 150 
3160 LEP A(Z + X) = 189 
3170 LET SI = 31 4 1 

3175 GOTO 500 

3180 LET Y = 0 

3190 LET X - 0 

3200 LET Z = 10 4 RHD(70) 
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3205 LBT Y - Y + 1 

3207 IF MOT A(Z) = 189 AMU Y 40 TUEN GOTO 3200 1 

3210 IF A(Z) * 109 AND A(Z + 8 ) = 150 AMD NOT AU ♦ 16) 

* 180 AND MOT A(Z + 1?) = 180 AND NOT A(Z 4 7) 

= 180 AND NOT A(Z - 2) = 180 AND NOT ^{Z - 1) 

- 180 AND NOT A(Z + 9) * 180 AND NOT A(Z + 10) 

. 180 THEU LET X = 8 

3230 IF X = 0 AND A(Z) = 109 AND A(Z 49 )= 150 AND NOT 
A(Z 4 10) = 180 AND NOT A(Z 40)= 160 AND NOT 
A(Z 4- 18) = 180 AND NOT A(Z 4 19 ) = 180 AND NOT 

A(Z 4 17) - 180 AND NOT A(Z - 1) - 180 AND NOT 

A(Z 4 1) =100 THEN LFr X = 9 

3234 IF SI * SM = 0 AND RND(4) > 1 OR RHD(3) > 1 TUEN 

GOTO 3250 

3235 JP Z < 20 THEH GOTO 3250 

3237 IF X = 0 AND A(Z) = 189 AND A(Z - 8 ) = 150 AND NOT 

A(Z - 16 ) - 1Ö0 AND KOT A(Z - 17) - 180 AND NOT 

A(Z - 7) - 180 AND NOT A(Z 4 2) = 180 AND NOT 

A(Z 4 1) = 180 AND HOT aU - 9) = 180 AND NOT 

A(Z - 16) = 180 THEN LE"! X = - 8 
3240 IP X = 0 AND A(Z) = 189 AND A(Z - 9) = 150 AND NOT 

A(Z - 10) = 180 AND HOT A(Z - 8 ) = 180 AND HOT 

A(Z - 18) = 100 AND NOT A{Z - 19) = 180 AND NOT 

A(Z - 17) = 180 AND HOT A(Z 4 1) = 180 AND NOT 

A(Z - 1) - 180 THEN LET X = -9 

3250 IF X = 0 AND Y <100 THEN GOTO 3200 
3270 LET Y - 0 

3290 LET Z » 10 4 RND(70) 

3295 LET Y = Y 4 1 

3300 IP HOT A(Z) = 109 AND Y < 100 TUEN GOTO 3290 

3320 IF A(Z 48)« 150 THEH LET X = 0 

3330 IF X - 0 AND A(Z - 0) « 150 THPJI LKT X = - 8 

3340 IF X « 0 AND A{z - 9) - 150 THEN LKT X « - 9 

3350 IP X = 0 AND A(Z t 10) = 150 THEN LET X = 10 

3360 IF X = 0 AND A{Z - 10) - 150 THEH LET X = - 10 

3370 IP X - 0 AND A(Z - 1) - 150 TUEN LPTf X = - 1 

3380 IP X = 0 AND A(Z 4 1) = 150 THEN LET X « 1 

3590 IP HOT X - 0 THEH GOTO 8000 
3400 IP Y<100 THfiJI GOTO 3290 

5000 REM gibt auf 

5010 LET Q = 17 

8000 LET A(Z) = 150 

8010 LET A(Z 4 X) = 1S9 

8020 GOTO 500 


9000 DIM A(105) 

9010 LET Q « 0 

9020 LET SI = 0 

9030 LET SM - 0 

9040 DIM G(2) 

9050 FOR B = 1 TO 105 

9060 l.ET A(D) =9 

9070 NEXT B 

9080 FOR B = 0 TU 7 

9090 FOR R = 0 TO B 

9100 LET A(80 - - R) 
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9110 

HKXT R 


9120 

HtJtT B 


9130 


A(71) 

:= 180 

9140 

LBT 

A(35) 

= 1B0 

9150 

LET 

A(6?) 

- 100 

9160 

Lfi,T 

A(53) 

s 100 

9170 

Lt,T 

A(44) 

= 100 

9160 

Für 

7=11 

TO 15 

9190 

LET 

A(Z) = 

189 

9200 

HEX; 

P Z 


9210 

I,ET 

C0 « 

" 

9220 

RETURH 




-Picasso 

Hier können Sie mit IK hübsche Bilder auf den Bildschirm 
malen, und zwar mit gePOKEten GRAPHICS, die mit der 
Schreibmarke gesteuert werden. Wählen Sie die Rich¬ 
tung, in die der Strich gehen soll und drücken dann 
NEWLINE. Sie ändern die Richtung, indem Sie das zuge¬ 
ordnete Zeichen (siehe unten) eingeben und danach 
immer wieder NEWLINE drücken, Der ZX80 wählt auto¬ 
matisch das passende Grafik-Zeichen für die Linieniich- 
tung, die Sie gerade vertolgen. Die Linie geht in der an¬ 
gegebenen Richtung weiter, bis Sie eine andere Taste 
drücken. Nachstehend finden Sie die vom Mittelpunkt 
ausgehenden Richtungen und welches Zeichen Sie dafür 
jeweils eingeben müssen, ehe Sie NEWLINE drücken. 
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N 


10 

GOSIIB 170 








20 

POKE Y»33 + X + 

1 + 

PEPK(7,) ♦ 

PPJEK 

(Z + 

D" 

?56, K 

30 

LET F0 * A0 








40 

IHPUT Ajl 








50 

IF A2 = "" TUEN 

LBT 

Aa = 

ra 





60 

LET A = CODB(A0) 








70 

IF A = 34 OR A * 

57 

OR A 

* 35 

THEN 

LET 

Y = 

Y - 1 

80 

IP A = 35 OR A * 

51 

OR A 

= 39 

THEN 

LET 

Y = 

Y + 1 

90 

IF A = 47 OR A = 

51 

OR A 

= 47 

TUEN 

LPT 

X •= 

X ♦ 1 

100 

IF A = 39 OH A = 

44 

OR A 

= 57 

Tllfill 

LET 

X = 

X - 1 

110 

LET K * -8»(A = 

39 ' 

□ RA : 

= 35) 

-136 

*(A = 

= 47 

OH A = 57) 


-7*(A = 

34 ' 

ÜH A ; 

= 51 OR A 

= 44 

OR 

A = 50) 

120 

IF X< 2 TUEN LET 

X 

= 2 






130 

IP X> 31 TUEN LET X 

“ 31 






140 

IF Y<2 TUEN LET 

Y 

= 2 






150 

IP Y> 14 THEN LE 

-j, Y 

= 14 
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160 

GOTO 20 


170 

FOR J = 

1 TO 15 

180 

PRTHT ,, 

,,, 

190 

HEXT J 


200 

LET X = 

16 

210 

LET K = 

6 

220 

LET Y = 

7 

2?0 

LET Z = 

16396 

240 

LET A0 = 

, IMI 

250 

RETURN 



-Chemin De Fer- 

Um 1490, während der Regierungszeit Charles VIII, kam 
Baccarat zum erstenmal aus Italien nach Frankreich. 
Historiker bezeichnen es als äußerst unwahrscheinlich, 
daß der König es aui einem ZX80 gespielt hat. Das italie¬ 
nische Spiel hieß Baccara, und dieses Spiel hier -- Che¬ 
min De Fer — ist entternt mit Jenem von alters her be¬ 
liebten Spiel verwandt. ZX80-Chemin De Fer beruht auf 
einer Würfelversion des Kasinospiels, das normalerweise 
mit Karten gespielt wird. Sie und der ZX80 (der »Bank¬ 
halter«) werfen jeweils fünf Würfel. Zeigt ein Würfel 2 
oder 5, muß er nochmals geworfen werden. Sie addieren 
die Augen der Würfel, die nicht 2 oder 5 erbracht haben 
und addieren dann diese Summe zu den Augen, die 
die nochmals geworfenen Würfel zeigen. Das Ziel ist, 
eine Augenzahl möglichst nahe 9 zu erhalten oder eine 
zweistellige Zahl, die mit 9 endet, Bei einer zweistelligen 
Zahl beachtet das Programm automatisch nur die zweite 
Ziffer. Lassen Sie es ein paarmal ablaufea dann werden 
Sie merken, warum dieses Spiel so beliebt ist. Das Pro¬ 
gramm sieht neun Gewinnspiele vor, wobei »tote Ren¬ 
nen« (oder Unentschieden) nicht zählen. Sieger ist, wer- 
die meisten der neun Runden gewonnen hat. So, wie es 
hier steht, braucht das Programm 2K. Damit es auf IK läuft 
fügen Sie einfach nach jedem INPUT A$ ein CLS ein, bis 
auf das letzte Mal, wo bereits eines steht. 


10 LET B1 = 0 

?0 LET PI = 0 

30 GOTO 540 

40 LET D = 0 

50 LET 0=0 

60 TOR a » 1 TO 5 

70 LET A = nND(6) 

80 IP A = 2 OH A = 5 THEN LET C = 0 + 1 

90 IP A = 2 OR A = 5 TUEN LET A = 0 

100 PKIWT Aj" * 

110 LET D = D f A 

120 HEXT Q 
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130 PRINT 

140 PRINT D, 

150 IK D > 9 TUEN LET D = D - 10 

160 PRINT D 

170 IF D > 9 TUEN LET D = D - 10 

1R0 PRINT " SUMME DES 1 . WURFES «•D 

190 IP D = 9 TUEN PRINT ,’'U GHANDE“ 

200 IP D = 8 TUEN PRINT ,''LA PKTITE” 

210 IF D = 7 TUEN PRINT ."TREFFER” 

220 IFC = 0OnD = 7ORD*8ünD=9 THEN RETURN 

230 PRINT Ci" MUSS NOCHMALS wUrFELN" 

240 FOH A = 1 TO C 

250 LI5T B = RHD(6) 

260 IF E = 2 OR E » 5 THEM LET E = 0 

270 LKT D » D + E 

280 NEXT A 

290 PRINT D, 

300 IP D > 9 TUEN LET D = D - 10 
310 PRINT D 

320 IP D > 9 tuen LCT D = D - 10 

330 RETURN 

340 PRINT ."BANKHALTER” 

350 GÜSUB 40 

360 PRINT "ENDSUMME «jj) 

370 INPUT A0 

380 LET J = D 

390 PRINT ."SPIELER” 

400 GOSUB 40 

410 INPUT A0 

420 PRINT ."BANKHALTER" •’SPIELEr“ 

430 PRINT,J.D 

440 IF J = D THEN PRINT ."UNENT¬ 

SCHIEDEN " 

450 IF J » D TUEN GOTO 510 

460 JF J > D THEN PRINT %ANKHALTER'' 

470 IF J > D THEN LET Bl == Bl + 1 

480 IF J < D THEN PRINT”SPIELER"l 

490 IF J < D THEN LET PI = PI t 1 

500 PRINT "GEWINNT" 

510 rniNT ."SUMMEN" 

520 PRINT ,B1,P1 

530 IF B1 + PI = 9 TUEN STOP 

540 INPUT A0 

550 CLS 

560 GOTO 340 


123 



-Venuslandung- 

Mondlandungen können Sie vergessen. Diese Landung 
linde! aul der Venus statt. Sie müssen versuchen. Ihre 
Landung früher in einer bestimmten Zeit zu landen. Au¬ 
ßerdem können Sie zusätzliche Schwierigkeiten einbau¬ 
en, z,B, den vorhandenen Treibstoff reduzieren (Zeile 330) 
oder die Ausgangsgeschwindigkeit verändern (Zeile 
340), Dieses Programm benötigt auf dem ZX80 mit altem 
ROM IK, 


10 

OOSUB 320 


20 

CLS 


30 

PRIHT ,*'HOEHEr",'’TREIBST'"^ "GESCHW 


35 

PRINT ,H,F,S 


40 

FOH A e 1 TO 16 - H/1000 


50 

PRINT 


60 

HEXT A 


70 

FOR B - 1 TO 11 + HND(5) 


80 

PRINT w » "j 


90 

NEXT B 


100 

LET J r= RHD(2) 


110 

IP J - 1 TUEN PRINT "(ahift P shlft 0 shift 

D)" 

120 

IP J - 2 THEH PRINT "(shift R shift T shift 

B)" 

130 

POR A - 16 - H/100 TO 16 


140 

PRINT 


150 

HEXT A 


160 

PRINT "« 


170 

INPUT T 


1B0 

IP P - T < 1 THKN LBT T * 0 


190 

LET 3 = S * S/10 + 5 - T 


200 

LET H - H - 3 


210 

IF H >1600 THEM GOTO 290 


220 

LET P = F - T/3 


230 

IF H> 0 TRBN GOTO 20 


240 

IF 3 >10 TUEN GOTO 270 


250 

PRINT "LANDUNG GEGLUECKT ''}P*235 " PUNKTE** 

260 

STOP 


270 

PRINT "BRUCHLANDUNG MIT "j 3 * RND(7), 
“METER KRATERBILDUNG" 


280 

STOP 


290 

CLS 


300 

PRINT ABS(S)5" - FLUCHTGESCHWINDIGKEIT* 


310 

OOTO 300 


320 

LET H = 1500 » nND(l00) 


330 

LET F ■= 90 + RND(75) 


340 

LET S = 10 ♦ RHD(10) 


350 

RETURN 



124 







Dieses Buch wurde in der Absicht verfaßt, 
]edem ZX-Fon etwas zu geben. Dem Anfän¬ 
ger wird anhand von unterhaltsamen Pro¬ 
grammen jeder Befehl des ZX 81 onschauUch 
erläutert. Der Fachmann findet eine Vielzahl 
an interessanten Programmen mit originellen 
Ptoblemlösungert Die Programme reichen 
von einfachen Spielen bis zu komplizierten 
Maschinencode-Programmen. »ZX-Power" 
beinhaltet auch ein Kapitel über die Um¬ 
wandlung von ZX 80 Programmen für den 
ZX 81. Die englische Computerzeitschrift 
»Computing Today« schrieb über dieses Buch: 
»The book nos something for everyone«. Auf 
jeden Fall finden Sie in diesem Buch eine 
Menge Ideen und Tips, die Sie in eigenen 
Programmen verwenden können — und soll¬ 
ten, wenn Sie aus Ihrem ZX dos Meiste 
herousholen wollen. 


Hiieber Software 3-19-008205-7 









Unglaublich, was Alostair Gourlay on 
Spielen und ProCTanunen iür den ZX 81 mit 
IK-RAM präsentiert. 

In diesem Buch linden Sie spannende 
Unterhaltung und viele wertvolle Program- 
miertips. Lenken Sie geschickt bei einem 
römischen Wagenrennen die Pterde, 
spekulieren Sie einmal an der Börse ohne 
Haus und Hof zu verlieren, der Computer 
verrät Ihren Blorythmus, oder spielen Sie 
17 und 4, wer gewinnt? Und noch viele 
weitere Spiele nicht nur zum Spielen, 
sondern mit denen man spielen kamt. 
Lernen Sie spielend programmieren. Ver¬ 
ändern Sie die Programme und schon 
erhalten Sie Ihr eigenes Programm. 

Faszinierend! 


Hueber Software |yp|>T 349.008202>2 I 












Explosive toiele. Klingt das nicht aufregend? 
Xn diesem Buch finden Sie viele großartige 
Spiele, die Sie stundenlang an Ihren ZXSl 
fesseln werden. 

Dieses Buch enthält Programme für jedes 
Spiel, das Sie sich nur wünschen können wie 
OALAKTISCHES AKQmFF, SCHMETTERBAIX, 
X>AlylE, BAÜMSCHIFF ENTERPRISE, TOI>K5- 
XABYRINTH, VXmXERREXHE und ein 8K-Ahen- 
teuerspiel SCHATZSÜCHE. Einige dieser 
Spiele laufen nur mit IK, wie z. B. SPACE 
INVADERS. 

Einige Spiele entscheidet das Glück durch 
den gefürchteten $ZNCX.AXR-Zufallsgenerator 
^ die anderen basieren auf Ihrer Fantasie 
und Geschicklichkeit und der Kapazität des 
Computers. Wir haben aber auf Jeden Fcdl 
darauf geachtet, daß Jedes einzelne Pro« 
gromm mindestens eine Programmtechnik 
enthält, die Sie für Ilue eigenen Programme 
anwenden kdnnen. 

Werm Sie wollen, kürmen Sie die Programme 
einf ach eingeben und stundenlang spielen. 
Aber wahrscheinlich wird es Ihnen viel mehr 
Spaß machen, mit ihnen zu arbeiten, sie 
nach Wtmsch zu ändern, einige Teile zu 
löschen, ondere zu verbessern usw. Drücken 
Sie den Programmen den Stempel Duer Per- 
sönUchkeit auf! Viele der IK-Splele können 
Sie veibessern, wenn Sie mehr Speicherkapa¬ 
zität zur Verfügung haben. Zumindest kön¬ 
nen Sie die Eingäbe-Aufforderungen für den 
Spieler »userfreundlicher« gestalten und die 
Regeln ausführlicher gestalten. 


ISBN 3-19-008204-9 









